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Before a computer can perform any useful function, it must be "told" 
what to do. Unfortunately, at this time, computers are not capable of 
understanding English or any other "human" language. This is primarily 
because our languages are rich with ambiguities and implied meanings. 
The computer must be told precise instructions and the exact sequence of 
operations to be performed in order to accomplish any specific task. 
Therefore, in order to facilitate human communication with a computer, 
programming languages have been developed. 

ALTAIR BASIC* is a programming language both easily understood and 
simple to use. It serves as an excellent "tool" for applications in 
areas such as business, science and education. With only a few hours of 
using BASIC, you will find that you can already write programs with an 
ease that few other computer languages car. duplicate. 

Originally developed at Dartmouth University, BASIC language has 
found wide acceptance in the computer field. Although it is one of the 
simplest computer languages to use, it is very powerful. BASIC uses a 
small set of common English words as its "commands". Designed specifi- 
cally as an "interactive" language, you can give a command such as 
"PRINT 2+2", and ALTAIR BASIC will immediately reply with "4". It 
isn't necessary to submit a card deck with your program on it and then 
wait hours for the results. Instead the full power of the ALTAIR is "at 
your fingertips". 

Generally, if the computer does not solve a particular problem the 
way you expected it to, there is a "Bug" or error in your program, or 
else there is an error in the data which the program used to calculate 
its answer. If you encounter any errors in BASIC itself, please let us 

Un/M.r anrl two ' 1 1 c oo +ha+ *l +■ * c rnvvorfaH Llv» , i+zs a lot + flv +r» nc rnnf aininn 
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the following information: 

1) System Configuration 

2) Version of BASIC 

3) A detailed description of the error 

Include all pertinent information 
such as a listing of the program in 
which the error occurred, the data 
placed into the program and BASIC'S 
printout. 

All of the information listed above will be necessary in order to pro- 
perly evaluate the problem and correct it as quickly as possible. We 
wish to maintain as high a level of quality as possible with all of our 
ALTAIR software. 

* BASIC is a registered trademark of Dartmouth University . 



We hope that you enjoy ALTAIR BASIC, and are successful in using it 
to solve all of your programming needs. 

In order to maintain a maximum quality level in our documentation, 
we will be continuously revising this manual. If you have any sugges- 
tions on how we can improve it, please let us know. 

If you are already familiar with BASIC programming, the following 
section may be skipped. Turn directly to the Reference Material on 
page 22. 



NOTE: MITS ALTAIR BASIC is available under license or purchase 
agreements, Copying or otherwise distributing MITS software out- 
side the terms of such an agreement may be a violation of copyright 
laws or the agreement itself. 

If any immediate problems with MITS software are encountered, feel 
free to qive us a call at (505) 265-7553. The Software Department 
is at Ext. 3; and the joint authors of the ALTAIR BASIC Interpreter, 
Bill Gates, Paul Allen and Monte Davidoff, will be glad to assist you. 
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This section is not intended to be a detailed course in BASIC pro- 
gramming. It will, however, serve as an excellent introduction for those 
of you unfamiliar with the language. 

The text here will introduce the primary concepts and uses of BASIC 
enough to get you started writing programs. For further reading sugges- 
tions, see Appendix M. 

If your ALTAIR does not have BASIC loaded and running, follow the 
procedures in Appendices A § B to bring it up. 

We recommend that you try each example in this section as it is pre- 
sented. This will enhance your "feel" for BASIC and how it is used. 

Once your I/O device has typed " OK ", you are ready to use ALTAIR 
BASIC. 

NOTE: All commands to ALTAIR BASIC should end with a carriage 
return. The carriage return tells BASIC that you have fimshed 
typing the command. If you make a typing error, type a back- 
arrow ( ■*• ), usually shift/0, or an underline to eliminate the 
last character. Repeated use of " «- " will eliminate previous 
characters. An at-sign ( & ) will eliminate the entire line 
that you are typing. 

Now, try typing in the following: 

PRINT 10-4 (end with carriage . return) 

ALTAIR BASIC will immediately print: 



OK 

rrvu- — •;„+■ s+atement v ou t vr, ed in was executed as soon as you hit the 
carriage return key. BASIC evaluated the formula after the "PRINT" and 
then typed out its value, in this case 6. 

Now try typing in this: 

PRINT 1/2,3*10 ("*" means multiply, "/" means divide) 
ALTAIR BASIC will print: 

.5 3D 

As you can see, ALTAIR BASIC can do division and multiplication as 
well as subtraction. Note how a " , " (comma) was used in the print com- 
mand to print two values instead of just one. The comma divides the 72 
character line into 5 columns, each 14 characters wide. The last two of 
the positions on the line are not used. The result is a " , " causes 
BASIC to skip to the next 14 column field on the terminal, where the 
value 30 was printed. 

2 



Commands such as the "PRINT" statements you have just typed in are 
called Direct Commands. There is another type of command called an In- 
direct Command. Every Indirect command begins with a Line Number. A 
Line Number is any integer from to 65529. 

Try typing in the following lines: 

10 PRINT 2+3 
20 PRINT 2-3 

A sequence of Indirect Commands is called a "Program". Instead of 
executing indirect statements immediately, ALTAIR BASIC saves Indirect 
Commands in the ALTAIR' s memory. When you type in RUN , BASIC will 
execute the lowest numbered indirect statement that has been typed in 
first, then the next highest, etc. for as many as were typed in. 

Suppose we type in RUN now: 

RUN 

ALTAIR BASIC will type out: 

S 
-1 

OK 

In the example above, we typed in line 10 first and line 20 second. 
However, it makes no difference in what order you type in indirect state- 
ments. BASIC always puts them into correct numerical order according to 
the Line Number. 

If we want a listing of the complete program currently in memory, 

w*» tvnp in T.TST Tvno -hVi-ic in- 

LIST 

ALTAIR BASIC will reply with: 

ID PRINT S+3 
EQ PRINT E-3 
OK 

Sometimes it is desirable to delete a line of a program altogether. 
This is accomplished by typing the Line Number of the line we wish to 
delete, followed only by a carriage return. 



Type in the following: 

10 
LIST 



ALTAIR BASIC will reply with: 

20 PRINT 2-3 
OK 

We have now deleted line 10 from the program. There is no way to 
get it back. To insert a new line 10, just type in 10 followed by the 
statement we want BASIC to execute. 

Type in the following: 

10 PRINT 2*3 
LIST 

ALTAIR BASIC will reply with: 

ID PRINT 2*3 
2D PRINT 2-3 
OK 

There is an easier way to replace line 10 than deleting it and then 
inserting a new line. You can do this by just typing the new line 10 and 
hitting the carriage return. BASIC throws away the old line 10 and re- 
places it with the new one. 

Type in the following: 

10 PRINT 3-3 
LIST 

ALTAIR BASIC will reply with: 

ID PRINT 3-3 
2D PRINT 2-3 
OK 

It is not recommended that lines be numbered consecutively. It may 
become necessary to insert a new line between two existing lines. An in- 
crement of 10 between line numbers is generally sufficient. 

If you want to erase the complete program currently stored in memory, 

type in " NEW ". If you are finished running one program and are about 

to read in a new one, be sure to type in " NEW " first. This should be 

done in order to prevent a mixture of the old and new programs. 

Type in the following: 

NEW 
ALTAIR BASIC will reply with: 

OK 



Now type in: 

LIST 
ALTAIR BASIC will reply with: 

OK 

Often it is desirable to include text along with answers that are 
printed out, in order to explain the meaning of the numbers. 

Type in the following: 

PRINT "ONE THIRD IS EQUAL TO", 1/3 
ALTAIR BASIC will reply with: 

ONE THIRD IS E2UAL TO -333333 

OK 

As explained earlier, including a " , " in a print statement causes 
it to space over to the next fourteen column field before the value fol- 
lowing the " , " is printed. 

If we use a " ; " instead of a comma, the value next will be printed 
immediately following the previous value. 

NOTE : Numbers are always printed with at least one trailing space. 
Any text to be printed is always to be enclosed in double quotes. 

Try the following examples: 

A) PRINT "ONE THIRD IS EQUAL TO"; 1/3 
ONE THIRD IS ESUAL TO = 33^m 

OK 



B) PRINT 1,2,3 
1 

OK 



C) PRINT 1;2;3 
12 3 

OK 



D) PRINT -l;2;-3 
-1 E -3 



OK 

We will digress for a moment to explain the format of numbers in 
ALTA1R BASIC. Numbers are stored internally to over six digits of ac- 
curacy. When a number is printed, only six digits are shown. Every 
number may also have an exponent (a power of ten scaling factor) . 

The largest number that may be represented in ALTAIR BASIC is 
1.70141*10 38 , while the smallest positive number is 2.93874*10"- . 

When a number is printed, the following rules are used to determine 
the exact format: 

1) If the number is negative, a minus sign (-) is printed. 
If the number is positive, a space is printed. 

2) If the absolute value of the number is an integer in the 
range to 999999, it is printed as an integer. 

3) If the absolute value of the number is greater than or 
equal to .1 and less than or equal to 999999, it is printed 
in fixed point notation, with no exponent. 

4) If the number does not fall under categories 2 or 3, 
scientific notation is used. 

Scientific notation is' formatted as follows: SX.XXXXXESTT . 
(each X being some integer to 9) 

The leading "S" is the sign of the number, a space for a 
positive number and a " - " for a negative one. One non- 
zero digit is printed before the decimal point. This is 
followed by the decimal point and then the other five digits 
of the mantissa. An "E" is then printed (for exponent) , 

r»ii n ,., P j u* r +Up cirtn fSI nf the AYnnpent ;; then the two 

digits (TT) of the exponent itself. Leading zeroes are 
never printed; i.e. the digit before the decimal is never 
zero. Also, trailing zeroes are never printed. If there 
is only one digit to print after all trailing zeroes are 
suppressed, no decimal point is printed. The exponent 
sign will be " + " for positive and " - " for negative. 
Two digits of the exponent are always printed; that is 
zeroes are not suppressed in the exponent field. The 
value of any number expressed thus is the number to the 
left of the "E" times 10 raised to the power of the number 
to the right of the "E". 

No matter what format is used, a space is always printed following 
a number. The 8K version of BASIC checks to see if the entire number 
will fit on the current line. If not, a carriage return/line feed is 
executed before printing the number. 



The following are examples of various numbers and the output format 
ALTAIR BASIC will place them into: 



NUMBER OUTPUT FORMAT 



+1 




1 


-1 




-1 


6523 




bS23 


-23.460 




-23.4b 


1E20 




1E+20 


-12.3456E- 


■7 


-1.2345bE-0b 


1.234567E- 


•10 


1.S34S7E-1D 


1000000 




iE+0b 


999999 




■fflffl 


.1 




.1 


.01 




1E-D2 


.000123 




1-23E-D4 



A number input from the terminal or a numeric constant used in a 
BASIC program may have as many digits as desired, up to the maximum length 
of a line (72 characters) . However, only the first 7 digits are signifi- 
cant, and the seventh digit is rounded up. 

PRINT 1.2345678901234567890 
L234S7 

OK 



The following is an example of a program that reads a value from the 
terminal and uses that value to calculate and print a result: 

10 INPUT R 

20 PRINT 3,14159*R*R 
RUN 
f 10 
314. 1ST 

OK 

Here's what's happening. When BASIC encounters the input statement, 
it types a question mark (?) on the terminal and then waits for you to 
type in a number. When you do (in the above example 10 was typed), execu- 
tion continues with the next statement in the program after the variable 
(R) has been set (in this case to 10). In the above example, line 20 
would now be executed. When the formula after the PRINT statement is 
evaluated, the value 10 is substituted for the variable R each time R ap- 
pears in the formula. Therefore, the formula becomes 3.14159*10*10, or 
314.159. 

If you haven't already guessed, what the program above actually does 
is to calculate the area of a circle with the radius "R". 



If we wanted to calculate the area of various circles, we could keep 
re-ruuning Llie program over each time for each successive circle. But, 
there's an easier way to do it simply by adding another line to the pro- 
gram as follows: 

30 GOTO 10 

RUN 

f 10 

3m- 151 
f 3 

56.57M3 
f 4.7 

L^. 3=177 
f 

OK 

By putting a " GOTO " statement on the end of our program, we have 
caused it to go back to line 10 after it prints each answer for the suc- 
cessive circles, This could have gone on indefinitely, but we decided 
to stop after calculating the area for three circles. This was accom- 
plished by typing a carriage return to the input statement (thus a blank 
line) . 

NOTE: Typing a carriage return to an input statement in the 4K 
version of BASIC will cause a SN error (see Reference Material). 

The letter "R" in the program we just used was termed a "variable". 
A variable name can be any alphabetic character and may be followed by 
any alphanumeric character. 

In the 4K version of BASIC, the second character must be numeric 
or omitted. In the 8K version of BASIC, any alphanumeric characters 
after the first two are ignored. An alphanumeric character is any let- 
ter (A-Z) or any number (0-9) . 

Below are some examples of legal and illegal variable names: 



LEGAL 



ILLEGAL 



IN 4K VERSION 

A 

Zl 

IN 8K VERSION 

TP 

PSTG$ 

COUNT 



% (1st character must be alphabetic) 
Z1A (variable name too long) 
QR (2nd character must be numeric) 



TO (variable names cannot be reserved 

words) 
RGOTO (variable names cannot contain 
reserved words) 



The words used as BASIC statements are "reserved" for this specific 
purpose. You cannot use these words as variable names or inside of any 
variable name. For instance, "FEND" would be illegal because "END" is a 
reserved word. 

The following is a list of the reserved words in ALTAIR BASIC: 

4K RESERVED WORDS 

ABS CLEAR DATA DIM END FOR GOSUB GOTO IF INPUT 

INT LET LIST NEW NEXT PRINT READ REM RESTORE 

RETURN RND RUN SGN SIN SQR STEP STOP TAB( THEN 

TO USR 

oy ncccpvnn wnpnc TXTr<Tiir\T7 ait TMlOOr- »nnwr **m t\t nrvnTmrAv 
ui\ uijuijlvniju uuiu/j xniiJ-iUUJj r\j_iJ_i illUJL Aduvc, niNU X1N nuUl i J.U1N 

ASC AND ATN CHR$ CLOAD CONT COS CSAVE DEF EXP 

FN FRE INP LEFT$ LEN LOG MID$ NULL ON OR NOT 

OUT PEEK POKE POS RIGHT$ SPC( STR$ TAN VAL WAIT 

Remember, in the 4K version of BASIC variable names are only a letter 
or a letter followed by a number. Therefore, there is no possibility of 
a conflict with a reserved word. 

Besides having values assigned to variables with an input statement, 
you can also set the value of a variable with a LET or assignment state- 
ment. 

Twr +■ k « -Pis 1 1 /M.ri *% ,t sn viYVt-n 1 « f* - 

li) uic xwiiutving CAcuup J. td * 

A=5 

OK 

PRINT A, A* 2 
5 ID 

OK 

LET Z=7 

OK 

PRINT Z, Z-A 

OK 



As can be seen from the examples, the "LET" is optional in an assign- 
ment statement. 

BASIC "remembers" the values that have been assigned to variables 
using this type of statement. This "remembering" process uses space in 
the ALTAIR's memory to store the data. 

The values of variables are thrown away and the space in memory 
used to store them is released when one of four things occur: 

1) A new line is typed into the program or an old 
line is deleted 

2) A CLEAR command is typed in 

3) A RUN command is typed in 

4) NEW is typed in 

Another important fact is that if a variable is encountered in a 
formula before it is assigned a value, it is automatically assigned the 
value zero. Zero is then substituted as the value of the variable in 
the particular formula. Try the example below: 

PRINT Q,Q+2,Q*2 
QSD 

OK 

Another statement is the REM statement. REM is short for remark. 
This statement is used to insert comments or notes into a program. When 
BASIC encounters a REM statement the rest of the line is ignored. 

This serves mainly as an aid for the programmer himself, and serves 
no useful function as far as the operation of the program in solving a 
particular problem. 

Suppose we wanted to write a program to check ii a number is zero 
or not. With the statements we've gone over so far this could not be 
done. What is needed is a statement which can be used to conditionally 
branch to another statement. The "IF-THEN" statement does just that. 

Try typing in the following program: (remember, type NEW first) 

10 INPUT B 

20 IF B=0 THEN 50 

30 PRINT "NON-ZERO" 

40 GOTO 10 

50 PRINT "ZERO" 

60 GOTO 10 

When this program is typed into the ALTAIR and run, it will ask for 
a value for B. Type any value you wish in. The ALTAIR will then come to 
the "IF" statement. Between the "IF" and the "THEN" portion of the state- 
ment there are two expressions separated by a relation. 

10 



A relation is one of the following six symbols: 
RELATION MEANING 



= 


EQUAL TO 


> 


GREATER THAN 


< 


LESS THAN 


<> 


NOT EQUAL TO 


<= 


LESS THAN OR EQUAL TO 


=> 


GREATER THAN OR EQUAL TO 



The IF statement is either true or false, depending upon whether the 
two expressions satisfy the relation or not. For example, in the pro- 
gram we just did, if was typed in for B the IF statement would be true 
because 0=0. In this case, since the number after the THEN is 50, execu- 
tion of the program would continue at line 50. Therefore, "ZERO" would 
be printed and then the program would jump back to line 10 (because of 
the GOTO statement in line 60 j . 

Suppose a 1 was typed in for B. Since 1=0 is false, the IF state- 
ment would be false and the program would continue execution with the 
next line. Therefore, ""NON-ZERO" would be printed and the GOTO in line 
40 would send the program back to line 10. 

Now try the following program for comparing two numbers: 

10 INPUT A,B 

20 IF A<=B THEN 50 

30 PRINT "A IS BIGGER" 

40 GOTO 10 

50 IF A<B THEN 80 

60 PRINT "THEY ARE THE SAME" 

70 GOTO 10 

80 PRINT "B IS BIGGER" 

90 GOTO 10 

When this program is run, line 10 will input two numbers from the 
terminal. At line 20, if A is greater than B, A<=B will be false. This 
will cause the next statement to be executed, printing "A IS BIGGER" and 
then line 40 sends the computer back to line 10 to begin again. 

At line 20, if A has the same value as B, A<=B is true so we go to 
line 50. At line 50, since A has the same value as B, A<B is false; 
therefore, we go to the following statement and print "THEY ARE THE SAMi 
Then line 70 sends us back to the beginning again. 

At line 20, if A is smaller than B, A<=B is true so we go to line 5u. 
At line 50, A<B will be true so we then go to line 80. "B IS BIGGER" is 
then printed and again we go back to the beginning. 

Try running the last two programs several times. It may make it 
easier to understand if you try writing your own program at this time 
using the IF-THEN statement. Actually trying programs of your own is 
the quickest and easiest way to understand how BASIC works. Remember, 
to stop these programs just give a carriage return to the input state- 
ment. 

11 



One advantage of computers is their ability to perform repetitive 
task*. let's take a closer look and see how this works. 

Suppose we want a table of square roots from 1 to 10. The BASIC 
function for square root is "SQR"; the form being SQR(X), X being the 
number you wish the square root calculated from. We could write the pro- 
gram as follows: 



10 PRINT 1,SQR(1) 
20 PRINT 2, SQR (2) 
30 PRINT 3, SQR (3) 
40 PRINT 4, SQR (4) 
50 PRINT 5, SQR (5) 
60 PRINT 6, SQR (6) 
70 PRINT 7,SQR(7) 
80 PRINT 8, SQR (8) 
90 PRINT 9, SQR (9) 
100 PRINT 10,SQR(10) 



This program will do the job; however, it is terribly inefficient, 
in improve the program tremendously by using the IF statement just 



We can 

introduced as follows: 

10 N=l 

20 PRINT N,SQR(N) 

30 N=N+1 

40 IF N<=10 THEN 20 

When this program is run, its output will look exactly like that of 
the 10 statement program above it. Let's look at how it works. 

At line 10 we have a LET statement which sets the value of the vari- 
able N at 1. At line 20 we print N and the square root of N using its 
current value. It thus becomes 20 PRINT 1,SQR(1), and this calculation 

XS prXTli-GCi out* 

Ar litifi so we use what will appear at first to be a rather unusual 
LET statement. Mathematically, the statement N=N+1 is nonsense. However, 
the important thing to remember is that in a LET statement, the symbol 
" = " does not signify equality. In this case " = " means "to be replaced 
with". All the statement does is to take the current value of N and add 
1 to it. Thus, after the first time through line 30, N becomes 2. 

At line 40, since N now equals 2, N<=10 is true so the THEN portion 
branches us back to line 20, with N now at a value of 2. 

The overall result is that lines 20 through 40 are repeated, each 
time adding 1 to the value of N. When N finally equals 10 at line 20, 
the next line will increment it to 11. This results in a false state- 
ment at line 40, and since there are no further statements to the pro- 
gram it stops. 

This technique is referred to as "looping" or "iteration". Since 
it is used quite extensively in programming, there are special BASIC 
statements for using it. We can show these with the following pro- 
gram. 

12 



10 FOR N=l TO 10 
20 PRINT N,SQR(N) 
30 NEXT N 

The output of the program listed above will be exactly the same as 
the previous two programs. 

At line 10, N is set to equal 1. Line 20 causes the value of N and 
the square root of N to be printed. At line 30 we see a new type of 
statement. The "NEXT N" statement causes one to be added to N, and then 
if N<=10 we go back to the statement following the "FOR" statement. The 
overall operation then is the same as with the previous program. 

Notice that the variable following the "FOR" is exactly the same as 
the variable after the "NEXT". There is nothing special about the N in 
this case. Any variable could be used, as long as they are the same in 
both the "FOR" and the "NEXT" statements. For instance, "Zl" could be 
substituted everywhere there is an "N" in the above program and it would 
function exactly the same. 

Suppose we wanted to print a table of square roots from 10 to 20, 
only counting by two's. The following program would perform this task: 

10 N=10 

20 PRINT N,SQR(N) 

30 N=N+2 

40 IF N<=20 THEN 20 

Note the similar structure between this program and the one listed 
on page 12 for printing square roots for the numbers 1 to 10. This pro- 
gram can also be written using the "FOR" "loop just introduced. 

10 FOR N=10 TO 20 STEP 2 
20 PRINT N,SQR(N) 
30 NEXT N 

Notice that the only major difference between this program and the 
previous one using "FOR" loops is the addition of the "STEP 2" clause. 

This tells BASIC to add 2 to N each time, instead of 1 as in the 
previous program. If no "STEP" is given in a "FOR" statement, BASIC as- 
sumes that one is to be added each time. The "STEP" can be followed by 
any expression. 

Suppose we wanted to count backwards from 10 to 1. A program for 
doing this would be as follows: 

10 1=10 

20 PRINT I 

30 1=1-1 

40 IF I>=1 THEN 20 

Notice that we are now checking to see that I is greater than or 
equal to the final value. The reason is that we are now countirr by a 
negative number. In the previous examples it was the opposite, j we 
were checking for a variable less than or equal to the final v.i„„^. 
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The "STEP" statement previously shown can also be used with negative 
numbers to accomplish this same purpose. This can be done using the same 
format as in the other program, as follows: 

10 FOR 1=10 TO 1 STEP -1 
20 PRINT I 
30 NEXT I 

"FOR" loops can also be "nested". An example of this procedure fol- 
lows: 

10 FOR 1=1 TO 5 
20 FOR J-l TO 3 
30 PRINT I, J 
40 NEXT J 
50 NEXT I 

Notice that the "NEXT J" comes before the "NEXT I". This is because 
the J-loop is inside of the I- loop. The following program is incorrect; 
run it and see what happens. 

10 FOR 1=1 TO 5 
20 FOR J=l TO 3 
30 PRINT I, J 
40 NEXT I 
50 NEXT J 

It does not work because when the "NEXT I" is encountered, all know- 
ledge of the J-loop is lost. This happens because the J-loop is "inside' 
of the I -loop. 

It is often convenient to be able to select any element in a table 
of numbers. BASIC allows this to be done through the use of matrices. 

A matrix is a table of numbers. The name of this table, called the 
matrix name, is any legal variable name, "A" for example. The matrix 
name "A" is distinct and separate from the simple variable "A", and you 
could use both in the same program. 

To select an element of the table, we subscript "A" : that is to 
select the I'th element, we enclose I in parenthesis "(I)" and then fol- 
low "A" by this subscript. Therefore, "A(I)" is the I'th element in the 
matrix "A". 



NOTE 



In this section of the manual we will be concerned with 



one-dimensional matrices only. (See Reference Material) 

"A(I) U is only one element of matrix A, and BASIC must be told how 
much space to allocate for the entire matrix. 

This is done with a "DIM" statement, using the format "DIM A(15)". 
In this case, we have reserved space for the matrix index "I" to go from 
to 15. Matrix subscripts always start at 0; therefore, in the above 
example, we have allowed for 16 numbers in matrix A. 
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If "A(I)" is used in a program before it has been dimensioned, BASIC 
reserves space for 11 elements (0 through 10). 

As an example of how matrices are used, try the following program 
to sort a list of 8 numbers with you picking the numbers to be sorted. 

10 DIM A(8) 

20 FOR 1=1 TO 8 

30 INPUT A CI) 

50 NEXT I 

70 F=0 

80 FOR 1=1 TO 7 

90 IF A(I)<=A(I+1) THEN 140 

100 T=A(I) 

110 A(I)= A(I+1) 

120 A(I+1)=T 

130 F=l 

1 vl fl MCYT T 
i-ru iiijAi a 

150 IF F=l THEN 70 
160 FOR 1=1 TO 8 
170 PRINT A(I), 
180 NEXT I 

When line 10 is executed, BASIC sets aside space for 9 numeric values, 
A(0) through A(8). Lines 20 through 50 get the unsorted list from the 
user. The sorting itself is done by going through the list of numbers and 
upon finding any two that are not in order, we switch them. "F" is used 
to indicate if any switches were done. If any were done, line 150 tells 
BASIC to go back and check some more. 

If we did not switch any numbers, or after they are all in order, 
lines 160 through 180 will print out the sorted list. Note that a sub- 
script can be any expression. 

Another useful pair of statements are "GOSUB" and "RETURN". If you 
have a program that performs the same action in several different places, 
you could duplicate the same statements for the action in each place with- 
in the program. 

The "GOSUB"-"RETURN" statements can be used to avoid this duplication. 
When a "GOSUB" is encountered, BASIC branches to the line whose number fol 
lows the "GOSUB". However, BASIC remembers where it was in the program 
before it branched. When the "RETURN" statement is encountered, BASIC 
goes back to the first statement following the last "GOSUB" that was exe- 
cuted. Observe the following program. 

10 PRINT "WHAT IS THE NUMBER"; 

30 GOSUB 100 

40 T=N 

50 PRINT "WHAT IS THE SECOND NUMBER"- 

70 GOSUB 100 

80 PRINT "THE SUM OF THE TWO NUMBERS IS",T+N 
90 STOP 
100 INPUT N 
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110 IF N = INT(N) THEN 140 

120 PRINT "SORRY, NUMBER MUSI BE AN INTEGER. TRY AGAIN." 

130 GOTO 100 

140 RETURN 

What this program does is to ask for two numbers which must be inte- 
gers, and then prints the sum of the two. The subroutine in this pro- 
gram is lines 100 to 130. The subroutine asks for a number, and if it 
is not an integer, asks for a number again. It will continue to ask until 
an integer value is typed in. 

The main program prints " WHAT IS THE NUMBER ", and then calls the 
subroutine to get the value of the number into N. When the subroutine 
returns (to line 40), the value input is saved in the variable T. This 
is done so that when the subroutine is called a second time, the value 
of the first number will not be lost. 

" WHAT IS THE SECOND NUMBER " is then printed, and the second value 
is entered when the subroutine is again called. 

When the subroutine returns the second time, " THE SUM OF THE TWO 
NUMBERS IS " is printed, followed by the value of their sum. T contains 
the value of the first number that was entered and N contains the value 
of the second number. 

The next statement in the program is a "STOP" statement. This causes 
the program to stop execution at line 90. If the "STOP" statement was not 
included in the program, we would "fall into" the subroutine at line 100. 
This is undesirable because we would be asked to input another number. If 
we did, the subroutine would try to return; and since there was no "GOSUB" 
which called the subroutine, an RG error would occur. Each "GOSUB" exe- 
cuted in a program should have a matching "RETURN" executed later, and the 
opposite applies, i.e. a "RETURN" should be encountered only if it is 
part of a subroutine which has been called by a "GOSUB". 

Either "STOP" or "END" can be used to separate a program from its 
subroutines. In the 4K version of BASIC, there is no difference between 
the "STOP" and the "END". In the 8K version, "STOP" will print a mes- 
sage saying at what line the "STOP" was encountered. 



Suppose you had to enter numbers to your program that didn't change 
each time the program was run, but you would like it to be easy to change 
them if necessary. BASIC contains Special statements for this purpose, 
called the "READ" and "DATA" statements. 

Consider the following program: 

10 PRINT "GUESS A NUMBER"; 

20 INPUT G 

30 READ D 

40 IF D=-999999 THEN 90 

50 IF D<>G THEN 30 

60 PRINT "YOU ARE CORRECT" 

70 END 

90 PRINT "BAD GUESS, TRY AGAIN." 

95 RESTORE 
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100 GOTO 10 

110 DATA 1,393,-39,28,391,-8,0,3.14,90 

120 DATA 89,5,10,15,-34,-999999 

This is what happens when this program is run. When the "READ" 
statement is encountered, the effect is the same as an INPUT statement. 
But, instead of getting a number from the terminal, a number is read 
from the "DATA" statements. 

The first time a number is needed for a READ, the first number in 
the first DATA statement is returned. The second time one is needed, 
the second number in the first DATA statement is returned. When the en- 
tire contents of the first DATA statement have been read in this manner, 
the second DATA statement will then be used. DATA is always read se- 
quentially in this manner, and there may be any number of DATA statements 
in your program. 

The purpose of this program is to play a little game in which you 
try to guess one of the numbers contained in the DATA statements. For 
each guess that is typed in, we read through all of the numbers in the 
DATA statements until we find one that matches the guess. 

If more values are read than there are numbers in the DATA state- 
ments, an out of data (OD) error occurs. That is why in line 40 we check 
to see if -999999 was read. This is not one of the numbers to be matched, 
but is used as a flag to indicate that all of the data (possible correct 
guesses) has been read. Therefore, if -999999 was read, we know that the 
guess given was incorrect. 

Before going back to line 10 for another guess, we need to make the 
READ'S begin with the first piece of data again. This is the function of 
the "RESTORE". After the RESTORE is encountered, the next piece of data 
read will be the first piece in the first DATA statement again. 

DATA statements may be placed anywhere within the program. Only 
READ statements make use of the DATA statements in a program, and any 
other time they are encountered during program execution they will be 
ignored . 

THE FOLLOWING INFORMATION APPLIES TO THE 8K VERSION 
OF BASIC ONLY 

A list of characters is referred to as a "String". MITS, ALTAIR, 
and THIS IS A TEST are all strings. Like numeric variables, string 
variables can be assigned specific values. String variables are distin- 
guished from numeric variables by a "$" after the variable name. 

For example, try the following: 

A$="ALTAIR 8800" 

OK 

PRINT A$ 
ALTAIR flflDD 

OK 
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In this example, we set the string variable A$ to the string value 
"ALTAIR 8800". Note that we also enclosed the character string to be as- 
signed to A$ in quotes. 

Now that we have set A$ to a string value, we can find out "hat the 
length of this value is (the number of characters it contains) . We do 
this as follows: 

PRINT LEN(A$),LEN("MITS") 
11 4 

OK 

The "LEN" function returns an integer equal to the number of chara- 
cters in a string. . _ n 

The number of characters in a string expression may range from to 
255 A string which contains characters is called the "NULL" string. 
Before a string variable is set to a value in the program, it is initial- 
ized to the null string. Printing a null string on the terminal will 
cau-e no characters to be printed, and the print head or cursor will not 
be advanced to the next column. Try the following: 

PRINT LEN(Q$);Q$;3 
3 

OK 

Another way to create the null string is: Q$="" 

Setting a string variable to the null string can be used to free up 
the string space used by a non-null string variable. 

Often it is desirable to access parts of a string and manipulate 
them. Now that we have set A$ to "ALTAIR 8800", we might want to print 
out only the first six characters of A$. We would do so like this: 

PRINT LEFT$(A$,6) 
ALTAIR 

OK 

"LEFT$" is a string function which returns a string composed of the 
leftmost N characters of its string argument. Here's another example: 

FOR N=l TO LEN (A$): PRINT LEFT$(A$,N) :NEXT N 

A 

AL 

ALT 

ALTA 

ALTAI 

ALTAIR 

ALTAIR 

ALTAIR fl 

ALTAIR flfi 
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ALTAIR SAG 
ALTAIR flflDO 

OK 

Since A$ has 11 characters, this loop will be executed with N=l,2, 
3,..., 10, 11. The first time through only the first chatacter will be 
printed, the second time the first two characters will be printed, etc. 

There is another string function called "RIGHT$" which returns the 
right N characters from a string expression. Try substituting ''RIGHT!" 
for "LEFT$" in the previous example and see what happens. 

There is also a string function which allows us to take characters 
from the middle of a string. Try the following: 

FOR N=l TO LEN(A$): PRINT MID$(A$,N) :NEXT N 

altair aaoc 
LTAIR aaoa 
tair aaao 
air aaao 
ir aaao 
r aaao 

flflDD 

aaao 

flOD 

DD 



OK 

"MID$" returns a string starting at the Nth position of A$ to the 
end (last character) of A$. The first position of the string is posi- 
tion 1 and the last possible position of a string is position 255. 

Very often it is desirable to extract only the Nth character from 
a string. This can be done by calling MID$ with three arguments. The 
third argument specifies the number of characters to return. 

For example: 

FOR N=l TO LEN(A$):PRINT MID$ (A$,N,1) ,MID$ (A$,N,2) :NEXT N 

A AL 

L LT 

T TA 

A AI 

I IR 

R R 

a 
a aa 
a aa 
a aa 
a o 



OK 
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See the Reference Material for more details on the workings of 
"LEFT$ M , "RIGHT$" and "MID$". 

Strings may also be concatenated (put or joined together) through 
the use of the "+" operator. Try the following: 

B$="MITS"+" "+A$ 

OK 

PRINT B$ 

MITS ALTAIR SBQO 

OK 

Concatenation is especially useful if you wish to take a string apart 
and then put it back together with slight modifications. For instance: 

C$=LEFT$(B$,4)+"- n +MID$(B$,6,6)+"-"+RIGHT$(B$,4) 

OK 

PRINT C$ 

MITS-ALTAIR-flfiDQ 

OK 

Sometimes it is desirable to convert a number to its string repre- 
sentation and vice-versa. "VAL" and "STR$" perform these functions. 
Try the following: 

STRING$="567.8" 

OK 

PRINT VAL(STRING$) 
Sb7.fl 

OK 

STRING$=STR$(3.1415) 

OK 

PRINT STRING$,LEFT$(STRING$,5) 

3.1ms a.m 

OK 

"STR$" can be used to perform formatted I/O on numbers. You can 
convert a number to a string and then use LEFT$, RIGHT$, MID$ and con- 
catenation to reformat the number as desired. 

"STR$" can also be used to conveniently find out how many print 
columns a number will take. For example: 

PRINT LEN(STR$(3.157)) 

20 



OK 

If you have an application where a user is typing in a question such 
as "WHAT IS THE VOLUME OF A CYLINDER OF RADIUS 5.36 FEET, OF HEIGHT 5.1 
FEET?" you can use "VAL" to extract the numeric values 5.36 and 5.1 from 
the question. For further functions "CHR$" and "ASC" see Appendix K. 



The following program sorts a list of string data and prints out 
the sorted list. This program is very similar to the one given earlier 
for sorting a numeric list. 

100 DIM A$(15):REM ALLOCATE SPACE FOR STRING MATRIX 
110 FOR 1=1 TO 15: READ A$(I):NEXT I: REM READ IN STRINGS 
120 F=0:I=1:REM SET EXCHANGE FLAG TO ZERO AND SUBSCRIPT TO 1 
130 IF A$(I)<=A$(I+1) THEN 180: REM DON'T EXCHANGE IF ELEMENTS 
IN ORDER 

150 A$(I+1)=A$(I):REM EXCHANGE TWO CONSECUTIVE ELEMENTS 

160 A$(I)=T$ 

170 F=1:REM FLAG THAT WE EXCHANGED TWO ELEMENTS 

180 1=1+1: IF I<15 GOTO 130 

185 REM ONCE WE HAVE MADE A PASS THRU ALL ELEMENTS, CHECK 

187 REM TO SEE IF WE EXCHANGED ANY. IF NOT, DONE SORTING. 

190 IF F THEN 120:REM EQUIVALENT TO IF F<>0 THEN 120 

200 FOR 1=1 TO 15: PRINT A$(I):NEXT I: REM PRINT SORTED LIST 

210 REM STRING DATA FOLLOWS 

220 DATA APPLE, DOG, CAT, MITS,ALTAIR, RANDOM 

230 DATA MONDAY, "***ANSWER***"," FOO" 

240 DATA COMPUTER, FOO, E LP, MILWAUKEE, SEATTLE, ALBUQUERQUE 
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COMMANDS 

A command is usually given after BASIC has typed OK. This is called 
the "Command Level". Commands may be used as program statements. Certain 
commands, such as LIST, NEW and CLOAD will terminate program execution 
when they finish. 

NAME EXAMPLE PURPOSE/USE 

CLEAR *(SEE PAGE 42 FOR EXAMPLES AND EXPLANATION) 

LIST LIST Lists current program 

LIST 1DD optionally starting at specified line. 

List can be control-C'd (BASIC will 
finish listing the current line) 

NULL NULL 3 (Null command only in 8K version, but 

paragraph applicable to 4K version also) 
Sets the number of null (ASCII 0) charac- 
ters printed after a carriage return/ line 
feed. The number of nulls printed may 
be set from to 71. This is a must for 
hardcopy terminals that require a delay 
after a CRLF* It is necessary to set the 
number of nulls typed on CRLF to before 
a paper tape of a program is read in from 
a Teletype (TELETYPE is a registered 
trademark of the TELETYPE CORPORATION) . 
In the 8K version, use the null command 
to set the number of nulls to zero. In 
the 4K version, this is accomplished by 
patching location 46 octal to contain the 
number of nulls to be typed plus 1. 
(Depositing a 1 in location 46 would set 
the number of nulls typed to zero.) When 
you punch a paper tape of a program using 
the list command, null should be set >=3 
for 10 CPS terminals, >=6 for 30 CPS ter- 
minals. When not making a tape, we recom- 
mend that you use a null setting of or 1 
for Teletypes, and 2 or 3 for hard copy 
30 CPS terminals. A setting of will 
work with 'Teletype compatible CRT's. 

RUN RUN Starts execution of the program currently 

in memory at the lowest numbered state- 
ment. Run deletes all variables (does a 
CLEAR) and restores DATA. If you have 
stopped your program and wish to continue 
execution at some point in the program, 
use a direct GOTO statement to start 
execution of your program at the desired 

line. *CRLF=carriage return/ line feed 
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RUN EDO (8K version only) optionally starting 

at the specified line number 

NEW NEU Deletes current program and all variables 

THE FOLLOWING COMMANDS ARE IN THE 8K VERSION ONLY 

CONT CONT Continues program execution after a 

control/C is typed or a STOP statement 
is executed. You cannot continue after 
any error, after modifying your program, 
or before your program has been run. 
One of the main purposes of CONT is de- 
bugging. Suppose at some point after 
running your program, nothing is printed. 
This may be because your program is per- 
forming some time consuming calculation, 
but it may be because you have fallen 
into an "infinite loop". An infinite loop 
is a series of BASIC statements from 
which there is no escape. The ALTAIR will 
keep executing the series of statements 
over and over, until you intervene or 
until power to the ALTAIR is cut off. 
If you suspect your program is in an 
infinite loop, type in a control/C. In 
the 8K version, the line number of the 
statement BASIC was executing will be 
typed out. After BASIC has typed out OK, 
you can use PRINT to type out some of the 
values of your variables. After examining 
these values you may become satisfied that 
your program is functioning correctly. 
You should then type in CONT to continue 
executing your program where it left off, 
or type a direct GOTO statement to resume 
execution of the program at a different 
line. You could also use assignment (LET) 
statements to set some of your variables 
to different values. Remember, if you 
control/C a program and expect to continue 
it later, you must not get any errors or 
type in any new program lines. If you 
do, you won't be able to continue and will 
get a "CN" (continue not) error. It is 
impossible to continue a direct command. 
CONT always resumes execution at the next 
statement to be executed in your program 
when control/C was typed. 
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THE FOLLOWING TWO COMMANDS ARE AVAILABLE IN THE 8K CASSETTE 

VERSION ONLY 



CLOAD 



CLOAD P 



CSAVE 



CSAVE P 



Loads the program named P from the 
cassette tape. A NEW command is auto- 
matically done before the CLOAD com- 
mand is executed. When done, the CLOAD 
will type out OK as usual. The one- 
character program designator may be any 
printing character. CSAVE and CLOAD 
use I/O ports 6 5 7. 
See Appendix I for more information. 

Saves on cassette tape the current pro- 
gram in the ALTAIR's memory. The pro- 
gram in memory is left unchanged. More 
than one program may be stored on cassette 
using this command. CSAVE and CLOAD use 
I/O ports 6 § 7. 
See Appendix I for more information 



OPERATORS 



SYMBOL SAMPLE STATEMENT 

A=10D 
LET Z=S-S 

B=-A 



t 130 PRINT X+3 

(usually a shift /N) 



1MD X=R*(B*D) 
ISO PRINT X/l-3 



PURPOSE/USE 

Assigns a value to a variable 
The LET is optional 

Negation. Note that 0-A is subtraction, 
while -A is negation. 

Exponentiation (8K version) 

(equal to X*X*X in the sample statement) 

0+0=1 to any other power = 

A+B, with A negative and B not an integer 

gives an FC error. 

Multiplication 

Division 



IbO Z=R+T+<2 
170 J-100-I 



Addition 
Subtraction 



RULES FOR EVALUATING EXPRESSIONS: 

1) Operations of higher precedence are performed before opera- 
tions of lower precedence. This means the multiplication and 
divisions are performed before additions and subtractions. As 
an example, 2+10/5 equals 4, not 2.4. When operations of equal 
precedence are found in a formula, the left hand one is executed 
first: 6-3+5=8, not -2. 
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1) 


FORMULAS 


a) 


+ 


3) 


NEGATION 


4) 


* / 


5) 


+ 



2) The order in which operations are performed can always be 
specified explicitly through the use of parentheses. For in- 
stance, to add 5 to 3 and then divide that by 4, we would use 
(5+3) /4, which equals 2. If instead we had used 5+3/4, we 
would get 5.75 as a result (5 plus 3/4). 

The precedence of operators used in evaluating expressions is as 
follows, in order beginning with the highest precedence: 

(Note: Operators listed on the same line have the same precedence.) 

FORMULAS ENCLOSED IN PARENTHESIS ARE ALWAYS EVALUATED FIRST 

EXPONENTIATION (8K VERSION ONLY) 

-X WHERE X MAY BE A FORMULA 

MULTIPLICATION AND DIVISION 

ADDITION AND SUBTRACTION 

b) RELATIONAL OPERATORS: = EQUAL 

(equal precedence for <> NOT EQUAL 

all six) < LESS THAN 

> GREATER THAN 

<- LESS THAN OR EQUAL 

>= GREATER THAN OR EQUAL 

(8K VERSION ONLY) (These 3 below are Logical Operators) 

7) NOT LOGICAL AND BITWISE "NOT" 

LIKE" NEGATION, NOT TAKES ONLY THE 
FORMULA TO ITS RIGHT AS AN ARGUMENT 

A ^ AM1\ I /\/"T/-»l Aum DTTI.IT<?r ll»MT\ll 

w/ J-ll«J/ LVUXV.HL MIH1/ UA I UJJLO.L rtlVi/ 

T) OR LOGICAL AND BITWISE "OR" 

In the 4K version of BASIC, relational operators can only be used 
in an IF statement. However, in the 8K version a relational ex- 
pression can be used as part of any expression. 
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Relational Operator expressions will always have a value of True (-1) 
or a value of False (0). Therefore, (5"4)=0, (5=5)=-l, (4>5)=0, (4<5)=-l, 
etc. 

The THEN clause of an IF statement is executed whenever the formula 
after the IF is not equal to 0. That is to say, IF X THEN... is equivalent 
to IF X<>0 THEN. ... 
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SYMBOL SAMl'LLi STATEMENT PURPOSE/USE 

ID IF A=1S THEN HQ Expression Equals Expression 

<> 7D IF A<>0 THEN S Expression Does Not Equal Expression 

> 3D IF B>10D THEN fi Expression Greater Than Expression 

< 1LD IF B<2 THEN ID Expression Less Than Expression 

<=,=< IflD IF 1DD<=B+C THEN ID Expression Less Than Or Equal 

To Expression 

>=,=> no if (3=>R THEN SD Expression Greater Than Or Equal 

To Expression 

AND 2 IF A<5 AND B<2 THEN 7 (8K Version only) If expression 1 

(A<5) AND expression 2 (B<2) are both 
true, then branch to line 7 

OR IF A<1 OR B<2 THEN 2 (8K Version only) If either expres- 
sion 1 (A<1) OR expression 2 (B<2) is 
true, then branch to line 2 

NOT IF NOT (23 THEN H (8K Version only) If expression 

"NOT Q3" is true (because Q3 is 
false), then branch to line 4 

Note: NOT -1=0 (NOT true=false) 

AND, OR and NOT can be used for bit manipulation, and for performing 
boolean operations. 

These three operators convert their arguments to sixteen bit, signed 
two's, complement integers in the range -32768 to +32767. They then per- 
form the specified logical operation on them and return a result within 
the same range. If the arguments are not in this range, an "FC" error 
results. 

The operations are performed in bitwise fashion, this means that each 
bit of the result is obtained by examining the bit in the same position 
for each argument. 

The following truth table shows the logical relationship between bits: 

OPERATOR ARG. 1 ARG. 2 RESULT 

AND 1 1 1 

D 1 D 

ID D 

D D D 



(oont. ) 
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OPERATOR ARC 1 ARC 2 RESULT 



OR 


1 


1 


1 




1 





1 




D 


1 


1 




Q 


D 





NOT 


1 


- 







D 


- 


1 



EXAMPLES: (In all of the examples below, leading zeroes on binary 
numbers are not shown. ) 

b3 AND lb=lti Since 63 equals binary 111111 and 16 equals binary 
10000, the result of the AND is binary 10000 or 16. 

IS AND m=m 15 equals binary 1111 and 14 equals binary 1110, so 
15 AND 14 equals binar v 1110 or 14. 

-1 AND fl=fl -1 equals binary 1111111111111111 and 8 equals binary 
1000, so the result is binary 1000 or 8 decimal. 

M AND S=D 4 equals binary 100 and 2 equals binary 10, so the 

result is binary because none of the bits in either 
argument match to give a 1 bit in the result. 

M OR S=L Binary 100 OR'd with binary 10 equals binary 110, or 
6 decimal. 

ID OR 1D=1D Binary 1010 OR'd with binary 1010 equals binary 1010, 
or 10 decimal. 

-1 OR -2=-l Binary 1111111111111111 (-1) OR'd with binary 

1111111111111110 (-2) equals binary 1111111111111111, 
or -1. 

NOT Q=-l The bit complement of binary to 16 places is sixteen 
ones (1111111111111111) or -1. Also NOT -1=0. 

NOT X NOT X is equal to -(X+l). This is because to form the 

sixteen bit two's complement of the number, you take the 
bit (one's) complement and add one. 

NOT 1=-E The sixteen bit complement of 1 is 1111111111111110, 
which is equal to -(1+1) or -2. 

A typical use of the bitwise operators is to test bits set in the 
ALTAIR's inport ports which reflect the state of some external device. 

Bit position 7 is the most significant bit of a byte, while position 
is the least significant. 
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For instance, suppose bit 1 of I/O port 5 is when the door to Room 
X is closed, and 1 if the door is open. The following program will print 

"Intruder Alert" if the door is opened: 

ID IF NOT (INP(S) AND S) THEN ID This line will execute over 

and over until bit 1 (mask- 
ed or selected by the 2) be- 
comes a 1. When that happens, 
we go to line 20 . 

50 PRINT "INTRUDER ALERT" Line 20 will output "INTRUDER 

ALERT". 

However, we can replace statement 10 with a "WAIT" statement, which 
has exactly the same effect. 

10 WAIT 5,2 This line delays the execution of the next 

statement in the program until bit 1 of 
I/O port 5 becomes 1. The WAIT is much 
faster than the equivalent IF statement 
and also takes less bytes of program 
storage. 

The ALTAIR's sense switches may also be used as an input device by 
the INP function. The program below prints out any changes in the sense 
switches. 

ID A=3D0:REM SET A TO A VALUE THAT UILL FORCE PRINTING 
BO J=INP(aSS):IF J=A THEN 3D 
3D PRINT J;:A=J:G0T0 3D 

The following is another useful way of using relational operators: 

las A=-(B>C)*B-(B<=C)*C This statement will set the variable 

A to MAX(B,C) = the larger of the two 



STATEMENTS 

Note: In the following description of statements, an argument of V 
or W denotes a numeric variable, X denotes a numeric expression, X$ de- 
notes a string expression and an I or J denotes an expression that is 
truncated to an integer before the statement is executed. Truncation • 
means that any fractional part of the number is lost, e.g. 3.9 becomes 
3, 4.01 becomes 4. 

An expression is a series of variables, operators, function calls 
and constants which after the operations and function calls are performed 
using the precedence rules, evaluates to a numeric or string value. 

A constant is either a number (3.14) or a string literal ("FOO"). 
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NAME tiXAMPLE PURPOSE/USE 

DATA 10 DATA 1-.3i-1E3-i.QM Specifies data, read from left to right. 

Information appears in data statements 
in the same order as it will be read in 
the program. IN THE 4K VERSION OF BASIC, 
DATA STATEMENTS MUST BE THE FIRST STATE- 
MENTS ON A LINE. Expressions may also 
appear in the 4K version data statements. 

50 DATA " F00",Z00 (8K Version) Strings may be read from 

DATA statements. If you want the string 
to contain leading spaces (blanks), colons 
(:) or commas (,), you must enclose the 
string in double quotes. It is impossible 
to have a double quote within string data 
or a string literal. (""MITS"" is illegal) 

DEF 100 DEF FNA(V)=vVB+C (8K Version) The user can define functions 

like the built-in functions (SQR, SGN, ABS, 
etc.) through the use of the DEF statement. 
The name of the function is "FN" followed 
by any legal variable name, for example: 
FNX, FNJ7, FNKO, FNR2. User defined 
functions are restricted to one line. A 
function may be defined to be any expres- 
sion, but may only have one argument. In 
the example B § C are variables that are 
used in the program. Executing the DEF 
statement defines the function. User de- 
fined functions can be redefined by exe- 
cuting another DEF statement for the same 
function. User defined string functions 
are not allowed. "V" is called the dummy 
variable. 
110 Z=FNA(3) Execution of this statement following the 

above would cause Z to be set to 3/B+C, 
but the value of V would be unchanged. 

DIM 113 Dill A(3),B(10) Allocates space for matrices. All matrix 

elements are set to zero by the DIM state- 
ment. 

114 DIM R3(S,S),D$(2,E,a) (8K Version) Matrices can have more 

than one dimension. Up to 255 dimen- 
sions are allowed, but due to the re- 
striction of 72 characters per line 
the practical maximum is about 34 
dimensions. 

115 Did (31(N),Z(5*I) Matrices can be dimensioned dynamically 

during program execution. If a matrix 
is not explicitly dimensioned with a DIM 
statement, it is assumed to be a single 
dimensioned matrix of whose single subscript 
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may range from to 10 (eleven elements) . 
11? A(fl)=M If this statement was encountered before 

a DIM statement for A was found in the 
program, it would be as if a DIM A(10) 
had been executed previous to the execu- 
tion of line 117. All subscripts start 
at zero (0), which means that DIM X(100) 
really allocates 101 matrix elements. 

END Tr^ END Terminates program execution without 

printing a BREAK message, (see STOP) 
CONT after an END statement causes exe- 
cution to resume at the statement after 
the END statement. END can be used any- 
where in the program, and is optional . 

FOR 30D FOR V=l TO "i-B STEP -b (see NEXT statement) V is set 

equal to the value of the expres- 
sion following the equal sign, in 
this case 1. This value is called 
the initial value. Then the state- 
ments between FOR and NEXT are 
executed. The final value is the 
value of the expression following 
the TO. The step is the value of 
the expression following STEP. 
When the NEXT statement is encoun- 
tered, the step is added to the 
variable. 

31D FOR V=l TO T-3 If no STEP was specified, it is 

assumed to be one. If the step is 
positive and the new value of the 
variable is <= the final value (9.3 
in this example) , or the step value 
is negative and the new value of 
the variable is => the final value, 
then the first statement following 
the FOR statement is executed. 
Otherwise, the statement following 
the NEXT statement is executed. 
All FOR loops execute the statements 
between the FOR and the NEXT at 
least once, even in cases like 
FOR V=l TO 0. 

315 FOR V=10*N TO 3-M/fl STEP S<2R(R) Note that expressions 

(formulas) may be used for the in- 
itial, final and step values in a 
FOR loop. The values of the ex- 
pressions are computed only once, 

before the body of the FOR NEXT 

loop is executed. 
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320 FOR V=T TO 1 STEP -1 



330 FOR ld=l TO 10: FOR ld-1 



GOTO SO GOTO 100 
GOSUB 10 GOSUB T1D 



When the statement after the NEXT 
is executed, the loop variable is 
never equal to the final value, 
but is equal to whatever value 
caused the FOR... NEXT loop to ter- 
minate. The statements between 
the FOR and its corresponding NEXT 
in both examples above (310 § 320) 
would be executed 9 times . 
TO :NEXT likNEXT Id Error: do not 
use nested FOR... NEXT loops with 
the same index variable. 
FOR loop nesting is limited only 
by the available memory, 
(see Appendix D) 



Branches to the statement specified. 

Branches to the specified statement (910) 
until a RETURN is encountered; when a 
branch is then made to the statement 
after the GOSUB. GOSUB nesting is limited 
only by the available memory, 
(see Appendix D) 



IF... GOTO 



35 IF X<=Y+23.4 GOTO IB 



(8K Version) Equivalent to IF... THEN, 
except that IF... GOTO must be followed 
by a line number, while IF... THEN can 
be followed by either a line number 
or another statement. 



IF... THEN 



n-*»i«^Uoc +■ r\ c?no/*i -Pi t 



relation is True. 
E0 IF X<0 THEN PRINT "X LESS THAN 0" 



ES IF X=S THEN S0:Z=A 



Executes all of the 
statements on the remainder of the line 
after the THEN if the relation is True. 
WARNING. The "Z=A" will never be 
executed because if the relation is 
true, BASIC will branch to line 50. 
If the relation is false Basic will 
proceed to the line after line 25. 
£b IF X<0 THEN PRINT "ERROR, X NEGATIVE": GOTO 3S0 

In this example, if X is less than 0, 
the PRINT statement will be executed 
and then the GOTO statement will 
branch to line 350. If the X was or 
positive, BASIC will proceed to 
execute the lines after line 26. 
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INPUT 



3 INPUT v,y,us 



S INPUT "VALUE" ;V 



Requests data from the terminal (to be 
typed in) . Each value must be separated 
from the preceeding value by a comma (,). 
The last value typed should be followed 
by a carriage return. A "?" is typed as 
a prompt character. In the 4K version, a 
value typed in as a response to an INPUT 
statement may be a formula, such as 
2*SIN(.16)-3. However, in the 8K version, 
only constants may be typed in as a re- 
sponse to an INPUT statement, such as 
4.5E-3 or "CAT". If more data was re- 
quested in an INPUT statement than was 
typed in, a "??" is printed and the rest 
of the data should be typed in. If more 
data was typed in than was requested, 
the extra data will be ignored. The 8K 
version will print the warning "EXTRA 
IGNORED" when this happens. The 4K ver- 
sion will not print a warning message. 
(8K Version) Strings must be input in the 
same format as they are specified in DATA 
statements . 

(8K Version) Optionally types a prompt 
string ("VALUE") before requesting data 
from the terminal. If carriage return 
is typed to an input statement, BASIC 
returns to command mode. Typing CONT 
after an INPUT command has been inter- 
rupted will cause execution to resume at 
the INPUT statement. 



LET 



3DD LET U=X 
31D V-S-l 



Assigns a value to a variable. 
"LET" is optional. 



IMCAI 



3MD NEXT V 
3MS NEXT 

3SD NEXT V,U 



(8K Version) If no variable is given, 
matches the most recent FOR loop. 
(8K Version) A single NEXT may be used 
to match multiple FOR statements. 
Equivalent to NEXT V:NEXT W. 



ON... GOTO 



1DD ON I GOTO 10,E0,30,40 (8K Version) Branches to the line 

indicated by the I'th number after 
the GOTO. That is: 
IF 1=1, THEN GOTO LINE 10 
IF 1=2, THEN GOTO LINE 20 
IF 1=3, THEN GOTO LINE 30 
IF 1=4, THEN GOTO LINE 40. 
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If 1=0 or I attempts to select a non- 
existent line (>=5 in this case) , the 
statement after the ON statement is 
executed. However, if I is >255 or 
<0, an FC error message will result. 
As many line numbers as will fit on 
a line can follow an ON... GOTO. 
IDS ON SGN(X)+2 GOTO 40,50,1=0 

This statement will branch to line 40 
if the expression X is less than zero, 
to line 50 if it equals zero, and to 
line 60 if it is greater than zero. 



0N...G0SUB 



110 ON I G0SUB 50, bO 



(8K Version) Identical to "ON... GOTO", 
except that a subroutine call (G0SUB) is 
executed instead of a GOTO. RETURN from 
the G0SUB branches to the statement after 
the ON...GOSUB. 



OUT 



355 OUT I, J 



(8K Version) Sends the byte J to the 
output port I. Both I § J must be >=0 
and <=255. 



POKE 



357 POKE I, J 



PRINT 



3b0 PRINT 
370 PRINT 
360 PRINT 
310 PRINT 
M00 PRINT 



X,Y;Z 

X,Y; 

"VALUE 

AE,B, 



(8K Version) The POKE statement stores 
the byte specified by its second argu- 
ment (J) into the location given by its 
first argument (I) . The byte to be stored 
must be =>0 and <=255, or an FC error will 
occur. The address (I) must be =>0 and 
<=32767, or an FC error will result. 
Careless use of the POKE statement will 
probably cause you to "poke" BASIC to 
death; that is, the machine will hang, and 
you will have to reload BASIC and will 
lose any program you had typed in. A 
POKE to a non-existent memory location is 
harmless. One of the main uses of POKE 
is to pass arguments to machine language 
subroutines . (see Appendix J ) You could 
also use PEEK and POKE to write a memory 
diagnostic or an assembler in BASIC. 

Prints the value of expressions on the 
terminal. If the list of values to be 
printed out does not end with a comma (,) 
IS"; A or a semicolon (;), then a carriage 

return/ line feed is executed after all the 
values have been printed. Strings enclosed 
in quotes (") may also be printed. If a 
semicolon separates two expressions in the 
list, their values are printed next to 
each other. If a comma appears after an 
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expression in the list, and the print head 
is at print position 56 or more, then a 
carriage return/line feed is executed. 
If the print head is before print position 
56, then spaces are printed until the car- 
riage is at the beginning of the next 14 
column field (until the carriage is at 
column 14, 28, 42 or 56... ). If there is no 
list of expressions to be printed, as in 
line 370 of the examples, then a carriage 
return/ line feed is executed. 
MID PRINT HID$(A$,£); (8K Version) String expressions may be 

printed. 



READ 



•41D READ Villi 



Reads data into specified variables from 
a DATA statement. The first piece of data 
read will be the first piece of data list- 
ed in the first DATA statement of the pro- 
gram. The second piece of data read will 
be the second piece listed in the first 
DATA statement, and so on. When all of 
the data have been read from the first 
DATA statement, the next piece of data to 
be read will be the first piece listed in 
the second DATA statement of the program. 
Attempting to read more data than there 
is in all the DATA statements in a pro- 
gram will cause an OD (out of data) error. 
In the 4K version, an SN error from a READ 
statement can mean the data it was at- 
tempting to read from a DATA statement was 
improperly formatted. In the 8K version, 
the line number given in the SN error will 
refer to the line number where the error 
actually is located. 



REM 



SDD REM NOW SET V=D 



SOS REM SET V=D: V=D 
50b V-D: REM SET V=D 



Allows the programmer to put comments in 
his program. REM statements are not exe- 
cuted, but can be branched to. A REM 
statement is terminated by end of line, 
but not by a ":". 

In this case the V=0 will never be exe- 
cuted by BASIC. 
In this case V=0 will be executed 



RESTORE SID RESTORE 



Allows the re-reading of DATA statements. 
After a RESTORE, the next piece of data 
read will be the first piece listed in 
the first DATA statement of the program. 
The second piece of data read will be 
the second piece listed in the first DATA 
statement, and so on as in a normal 
READ operation. 

36 



RETURN 



SO RETURN 



Causes a subroutine to return to the 
statement after the most recently exe- 
cuted GOSUB. 



STOP 



1DDD STOP 



Causes a program to stop execution and to 

enter command mode. 

(8K Version) Prints BREAK IN LINE 9000. 

(as per this example) CONT after a STOP 

branches to the statement following the 

STOP. 



WAIT flUS WAIT I,J,K 
60b WAIT I, J 



(8K Version) This statement reads the 
status of input port I, exclusive OR's 
K with the status, and then AND's the re- 
sult with J until a non-zero result is 
obtained. Execution of the program con- 
tinues at the statement following the 
«ai i statement . j.1 tne wrt.ii statement 
only has two arguments, K is assumed to 
be zero. If you are waiting for a bit 
to become zero, there should be a one in 
the corresponding position of K. I, J 
and K must be =>0 and <=255. 



4K INTRINSIC FUNCTIONS 



ABS(X) 120 PRINT ABS(X) 



INT(X) 140 PRINT INT(X) 



RND(X) 170 PRINT RND(X) 



Gives the absolute value of the expression 
X. ABS returns X if X>=0, -X otherwise. 

Returns the largest integer less than or 
equal to its argument X. For example: 
INT(.23)=0, INT(7)=7, INT(-.1)=-1, INT 

f *i\ _ -> t\tt*/-i i -\ _ 1 
{-4.J- -£., 1BH1.1J-1, 

The following would round X to D decimal 
places: 

INT(X*10-hD+.5)/10tD 

Generates a random number between and 1 . 

The argument X controls the generation of 

random numbers as follows: 

X<0 starts a new sequence of random 
numbers using X. Calling RND with 
the same X starts the same random 
number sequence. X=0 gives the last 
random number generated. Repeated 
calls to RND CO) will always return 
the same random number. X>0 gener- 
ates a new random number between 
and 1. 

Note that (B-A)*RND(1)+A will gener- 
ate a random number between A § B. 
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SGN(X) 530 PRINT SGN(X) 

SIN(X) 1TD PRINT SIN(X) 



Gives 1 if X>0, if X=0, and -1 if X<0. 



is 



S(3R(X) ISO PRINT S<2R(X) 



TAB (I) 240 PRINT TAB (I) 



USR(I) 200 PRINT USR(I) 



Gives the sine of the expression A. X 
interpreted as being in radians. Note: 
COS (X)=SIN(X+3. 14159/2) and that 1 Radian 
=180/PI degrees=57.2958 degrees; so that 
the sine of X degrees= SIN (X/57. 2958) . 

Gives the square root of the argument X. 
An FC error will occur if X is less than 
zero. 

Spaces to the specified print position 
(column) on the terminal . May be used 
only in PRINT statements. Zero is the 
leftmost column on the terminal, 71 the 
rightmost. If the carriage is beyond 
position I, then no printing is done. I 
must be =>0 and <=255. 

Calls the user's machine language sub- 
routine with the argument I. See POKE, 
PEEK and Appendix J. 



8K FUNCTIONS (Includes all those listed under 4K INTRINSIC FUNCTIONS 
plus the following in addition.) 



ATN(X) 210 PRINT ATN(X) 



COS(X) 200 PRINT COS(X) 



EXP(X) ISO PRINT EXP(X) 



FRE(X) 270 PRINT FRE(0) 



INP(I) 2bS PRINT INP(I) 



Gives the arctangent of the argument X. 
The result is returned in radians and 
ranges from -PI/2 to PI/2. (PI/2=1.5708) 

Gives the cosine of the expression X. X 
is interpreted as being in radians. 

Gives the constant "E" (2.71828) raised 
to the power X. (E+X) The maximum 
argument that can be passed to EXP with- 
out overflow occuring is 87.3365. 

Gives the number of memory bytes currently 
unused by BASIC. Memory allocated for 
STRING space is not included in the count 
returned by FRE. To find the number of 
free bytes in STRING space, call FRE with 
a STRING argument. (see FRE under STRING 
FUNCTIONS) 

Gives the status of (reads a byte from) 
input port I. Result is =>0 and <=255. 
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LOG(X) ltD PRINT LOG(X) 



Gives the natural (Base ].:) logarithm of 
its argument X. To obtain the Base Y 
logarithm of X use the formula LOG (X)/ LOG (Y) 
Example: The base 10 (common) log of 
7 = LOG (7)/ LOG (10). 



PEEK 



35b PRINT PEEK (I) 



The PEEK function returns the contents of 
memory address I. The value returned will 
be =>0 and <=255. If I is >32767 or <0, 
an FC error will occur. An attempt to 
read a non-existent memory address will 
return 255. (see POKE statement) 



POS(I) 2U3 PRINT POS(I) 



Gives the current position of the terminal 
print head (or cursor on CRT's). The 
leftmost character position on the terminal 
is position zero and the rightmost is 71. 



SPC(I) ESQ PRINT SPC(I) 



TAN(X) 500 PRINT TAN(X) 



Prints I space (or blank) characters on 
the terminal. May be used only in a 
PRINT statement. X must be =>0 and <=255 
or an FC error will result. 

Gives the tangent of the expression X. 
X is interpreted as being in radians. 



STRINGS (8K Version Only) 

1) A string may be from to 255 characters in length. All string 
variables end in a dollar sign ( $ ); for example, A$, B9$, K$, 
HELL0$. 
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For instance, DIM A$(10,10) creates a string matrix of 121 elements, 
eleven rows by eleven columns (rows to 10 and columns to 10) . 
Each string matrix element is a complete string, which can be up to 
255 characters in length. 



3) The total number of characters in use in strings at any time during 
program execution cannot execeed the amount of string space, or an 
OS error will result. At initialization, you should set up string 
space so that it can contain the maximum number of characters which 
can be used by strings at any one time during program execution. 



NAME 



EXAMPLE 



PURPOSE/USE 



DIM 



SS DIM A* (10, 10) 



Allocates space for a pointer and length 
for each element of a string matrix. No 
string space is allocated. See Appendix D. 
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LET 



27 LET A$="FOO"+V$ 



Assigns the value of a string expression 
to a string variable. LET is optional. 



> 
< 
<= 

>= 
<> 



3D LET Z*=R*+(2$ 



String comparison operators. Comparison 
is made on the basis of ASCII codes, a 
character at a time until a difference 
is found. If during the comparison of 
two strings, the end of one is reached, 
the shorter string is considered smaller. 
Note that "A " is greater than "A" since 
trailing spaces are significant. 

String concatentation. The resulting 
string must be less than 256 characters 
in length or an LS error will occur. 



INPUT 



HD INPUT X* 



Reads a string from the user's terminal. 
String does not have to be quoted; but if 
not, leading blanks will be ignored and 
the string will be terminated on a "," or 
":" character. 



READ 



SO READ X* 



Reads a string from DATA statements within 
the program. Strings do not have to be 
quoted; but if they are not, they are 
terminated on a "," or ":" character or 
end of line and leading spaces are ignored. 
See DATA for the format of string data. 



PRINT bO PRINT X* 

70 PRINT "F00"+A$ 



Prints the string expression on the user's 
terminal . 



STRING FUNCTIONS (8K Version Only) 



ASC(X$) 3DD PRINT ASCCX*) 



CHR*(I) 275 PRINT CHR$(I) 



FRE(X$) 272 PRINT FRE("") 



LEFT*(X*,I) 



Returns the ASCII numeric value of the 
first character of the string expression 
X$. See Appendix K for an ASCII /number 
conversion table. An FC error will occur 
if X$ is the null string. 

Returns a one character string whose single 
character is the ASCII equivalent of the 
value of the argument (I) which must be 
=>0 and <=255. See Appendix K. 

When called with a string argument, FRE 
gives the number of free bytes in string 
space. 

Gives the leftmost I characters of the 



310 PRINT LEFT$(X$,I) string expression X$. 

an FC error occurs. 

4& 



If I<=0 or >255 



LEN(X$) ESQ PRINT LEN(X$) 



Gives the length of the string expression 
X$ in characters (bytes) . Non-printing 
characters and blanks are counted as part 
of the length. 



MID*(X$,I) MID$ called with two arguments returns 

33D PRINT MID*CX*,I) characters from the string expression X$ 

starting at character position I. If 
I>LEN(I$), then MID$ returns a null (zero 
length) string. If I<=0 or >255, an FC 
error occurs. 

MID$(X$,I,J) MID$ called with three arguments returns 

3>4D PRINT MID$(X$,I,J) a string expression composed of the 

characters of the string expression X$ 
starting at the Ith character for J char- 
acters. If I>LEN(X$), MID$ returns a null 
string. If I or J <=0 or >255, an FC 
error occurs. If J specifies more char- 
acters than are left in the string, all 
characters from the Ith on are returned. 



RIGHT* (X*, I) 

350 PRINT RIGHT* (X*, I) 



STR*(X) 510 PRINT STR*(X) 



VAL(X*) SflQ PRINT VAL(X*) 



Gives the rightmost I characters of 
the string expression X$. When I<=0 
or >255 an FC error will occur. If 
I>=LEN(X$) then RIGHT$ returns all of 

X$. 

Gives a string which is the character 
representation of the numeric expression 
X. For instance, STR$(3.1)=" 3.1". 

Returns the string expression X$ converted 
to a number. For instance, VAL("3.1*')=3.1. 
If the first non-space character of the 
string is not a plus (+) or minus (-) sign, 
a digit or a decimal point (.) then zero 
will be returned. 



SPECIAL CHARACTERS 



CHARACTER 



USE 



Erases current line being typed, and types a carriage 
return/line feed. An "§" is usually a shift/P. 

(baakarrow or underline) Erases last character typed. 
If no more characters are left on the line, types a 
carriage return/line feed. "+-" is usually a shift/0. 
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CARRIAGli RETURN A carriage return must end every line typed in. Re- 
turns print head or CRT cursor to the first posit ion 
(leftmost) on line. A line feed is always executed 
after a carriage return. 

CONTROL/C Interrupts execution of a program or a list command. 

Control/C has effect when a statement finishes exe- 
cution, or in the case of interrupting a LIST com- 
mand, when a complete line has finished printing. In 
both cases a return is made to BASIC'S command level 
and OK is typed. 

(8K Version) Prints "BREAK IN LINE XXXX" , where 
XXXX is the line number of the next statement to 
be executed. 

: (colon) A colon is used to separate statements on a line. 

Colons may be used in direct and indirect statements. 
The only limit on the number of statements per line 
is the line length. It is not possible to GOTO or 
GOSUB to the middle of a line. 

(8K Version Only) 

CONTROL/0 Typing a Control/0 once causes BASIC to suppress all 

output until a return is made to command level, an 
input statement is encountered, another control/0 is 
typed, or an error occurs. 

? Question marks are equivalent to PRINT. For instance, 

? 2+2 is equivalent to PRINT 2+2. Question marks can 
also be used in indirect statements. 10 ? X, when 
listed will be typed as 10 PRINT X. 



MISCELLANEOUS 

1) To read in a paper tape with a program on it (8K Version) , type a 
control/0 and feed in tape. There will be no printing as the tape 
is- read in. Type control/0 again when the tape is through. 
Alternatively, set nulls=0 and feed in the paper tape, and when done 
reset nulls to the appropriate setting for your terminal. 
Each line must be followed by two rubouts, or any other non-printing 
character. If there are lines without line numbers (direct commands) 
the ALTAIR will fall behind the input coming from paper tape, so 
this in not recommending. 

Using null in this* fashion will produce a listing of your tape in 
the 8K version (use control/0 method if you don't want a listing). 
The null method is the only way to read in a tape in the 4K version. 

To read in a paper tape of a program in the 4K version, set the 
number of nulls typed on carriage return/line feed to zero by patch- 
ing location 46 (octal) to be a 1. Feed in the paper tape. When 
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APPENDIX A 



HOW TO LOAD BASIC 



When the ALTAIR is first turned on, there is random garbage in its 
memory. BASIC is supplied on a paper tape or audio cassette. Somehow 
the information on the paper tape or cassette must be transfered into the 
computer. Programs that perform this type of information transfer are 
called loaders. 

Since initially there is nothing of use in memory; you must toggle 
in, using the switches on the front panel, a 20 instruction bootstrap 
loader. This loader will then load BASIC. 

To load BASIC follow these steps: 

1) Turn the ALTAIR on. 

2) Raise the STOP switch and RESET switch simultaneously. 

3) Turn your terminal (such as a Teletype) to LINE. 

Because the instructions must be toggled in via the switches on the 
front panel, it is rather inconvenient to specify the positions of each 
switch as "up" or "down". Therefore, the switches are arranged in groups 
of 3 as indicated by the broken lines below switches through 15. To 
specify the positions of each switch, we use the numbers through 7 as 
shown below: 



3 SWITCH GROUP 



LEFTMOST MIDDLE RIGHTMOST 



Down 

uvnn 

Down 
Down 
Up 

Up 
Up 

Up 



Down 


Down 


Down 




Up 


Down 


Up 


Up 


Down 


Down 


Down 


Up 


Up 


Down 


Up 


Up 



OCTAL 
NUMBER 



^ 

JL 

2 
3 
4 
5 
6 
7 



So, to put the octal number 315 in switches through 7, the switches 
would have the following positions: 



7 




6 


5 


4 


3 


2 


1 


-« — SWITCH 


UP 


3 


UP 


DOWN 


DOWN 
1 


UP 


UP 


DOWN 
5 


UP -* — POSITION 

-* OCTAL NO 
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Note that switches 8 through 15 were not used. Switches through 
7 correspond to the switches labeled DATA on the front panel. A memory 
address would use all 16 switches. 

The following program is the bootstrap loader for users loading from 
paper tape, and not using a REV Serial I/O Board. 



OCTAL ADDRESS 


OCTAL DATA 


000 


041 


001 


175 


002 


037 (for 8K; for 4K use 017) 


003 


061 


004 


022 


005 


000 


006 


333 


007 


000 


010 


017 


011 


330 


012 


333 


013 


001 


014 


275 


015 


310 


016 


055 


017 


167 


020 


300 


021 


351 


022 


003 


023 


000 



The following 21 byte bootstrap loader is for users loading from a 
paper tape and using a REV Serial 1/0 Board on which the update changing 
the flag bits has not been made. If the update has been made, use the 
above bootstrap loader. 



OCTAL ADDRESS 


OCTAL DATA 


000 


041 


001 


175 


002 


037 (for 8K; for 4K use 017) 


003 


061 


004 


023 


005 


000 


006 


333 


007 


000 


010 


346 


011 


040 


012 


310 


013 


333 


014 


001 


015 


275 


016 


310 


017 


055 


020 


167 
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OCTAL ADDRESS 


(cont. J 


OCTAL DATA 


021 




300 


022 




351 


023 




003 


024 




000 



The following bootstrap loader is for users with BASIC supplied on 
an audio cassette. 



OCTAL ADDRESS 


OCTAL DATA 




000 




041 




001 


20* 


S5" 




002 




037 (for 8K; 


for 4K use 017) 


003 




061 




004 




022 




005 




000 




006 




333 




007 




006 




010 




017 




011 




330 




012 




333 




013 




007 




014 




275 




015 




310 




016 




055 




017 




167 




020 




300 




021 




351 




022 




003 




023 




000 





To load a bootstrap loader: 

1) Put switches through 15 in the down position. 

2) Raise EXAMINE. 

3) Put 041 (data for address 000) in switches through 7. 

4) Raise DEPOSIT. 

5) Put the data for the next address in switches through 7. 

6) Depress DEPOSIT NEXT. 

7) Repeat steps 5 § 6 until the entire loader is toggled in. 

8) Put switches through 15 in the down position. 

9) Raise EXAMINE. 

10) Check that lights DO through D7 correspond with the data that should 
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be in address 000. A light on means the switch was up, a light off 
means the switch was down. So for address 000, lights Dl through D4 
and lights D6 § D7 should be off, and lights DO and D5 should be on. 

If the correct value is there, go to step 13. If the value is wrong, 
continue with step 11. 

11) Put the correct value in switches through 7. 

12) Raise DEPOSIT. 

13) Depress EXAMINE NEXT. 

14) Repeat steps 10 through 13, checking to see that the correct data is 
in each corresponding address for the entire loader. 

15) If you encountered any mistakes while checking the loader, go back 
now anu re-check the whole program to be sure it is corrected. 

16) Put the tape of BASIC into the tape reader. Be sure the tape is 
positioned at the beginning of the leader. The leader is the section 
of tape at the beginning with 6 out of the 8 holes punched. 

If you are loading from audio cassette, put the cassette in the re- 
corder. Be sure the tape is fully rewound. 

17) Put switches through 15 in the down position. 

18) Raise EXAMINE. 

19) If you have connected to your terminal a REV Serial I/O Board 

on which the update changing the flag bits has not been made, raise 
switch 14; if you are loading from an audio cassette, raise switch 

i r « i — 

u aj.su. 

If you have a REV Serial I/O Board which has been updated, or have 
a REV 1 I/O Board, switch 14 should remain down and switch 15 should 
be raised only if you are loading from audio cassette. 

20) Turn on the tape reader and then depress RUN. Be sure RUN is depres- 
sed while the reader is still on the leader. Do not depress run be- 
fore turning on the reader, since this may cause the tape to be read 
incorrectly. 

If you are loading from a cassette, turn the cassette recorder to 
Play'. Wait 15 seconds and then depress RUN. 

21) Wait for the tape to be read in. This should take about 12 minutes 
for 8K BASIC and 6 minutes for 4K BASIC. It takes about 4 minutes 
to load 8K BASIC from cassette, and about 2 minutes for 4K BASIC. 

Do not move the switches while the tape is being read in. 
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22) If a C or an is printed on the terminal as the tape reads in, the 
tape has been mis-read and you should start over at step 1 on p.i^c 
40. 

23) When the tape finishes reading, BASIC should start up and print 
MEMORY SIZE?. See Appendix B for the initialization procedure. 

24) If BASIC refuses to load from the Audio Cassette, the ACR Demodulator 
may need alignment. The flip side of the cassette contains 90 seconds 
of 125»s (octal) which were recorded at the same tape speed as BASIC. 
Use the Input Test Program described on pages 22 and 28 of the ACR 
manual to perform the necessary alignment. 
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APPENDIX B 



INITIALIZATION DIALOG 



STARTING BASIC 

Leave the sense switches as they were set for loading BASIC (Appen- 
dix A). After the initialization dialog is complete, and BASIC types OK, 
you are free to use the sense switches as an input device (I/O port 255) . 

After you have loaded BASIC, it will respond: 

MEMORY SIZE? 

If you type a carriage return to MEMORY SIZE?, BASIC will use all 
the contiguous memory upwards from location zero that it can find. BASIC 

rt-LAX otwp Jfcax filing Hiitii j. c i-xiiuj unt, u;ic VI lvwi*i ui 11UI1-CA Jli> LCllt llicmul V • 

If you wish to allocate only part of the ALTAIR's memory to BASIC, 
type the number of bytes of memory you wish to allocate in decimal. This 
might be done, for instance, if you were using part of the memory for a 
machine language subroutine. 

There are 4096 bytes of memory in a 4K system, and 8192 bytes in an 
8K system. 

BASIC will then ask: 

TERMINAL WIDTH? This is to set the output line width for 

PRINT statements only. Type in the number 
of characters for the line width for the 
particular terminal or other output device 
you are using. This may be any number 
from 1 to 255, depending on the terminal. 
If no answer is given (i.e. a carriage 
return is typed) the line width is set 
to 72 characters. 

Now ALTAIR BASIC will enter a dialog which will allow you to delete 
some of the arithmetic functions. Deleting these functions will give 
more memory space to store your programs and variables. However, you will 
not be able to call the functions you delete. Attempting to do so will 
result in an FC error. The only way to restore a function that has been 
deleted is to reload BASIC. 

The following is the dialog which will occur: 

4K Version 

WANT SIN? Answer " Y " to retain SIN, SQR and RND 

If you answer " N ", asks next question 

WANT S(2R? Answer " Y " to retain SQR and RND. 

If you answer " N ", asks next question. 
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WANT RND? 



Answer " Y " to retain RND. 
Answer " N " to delete RND. 



8K Version 



UANT SIN-COS-TAN-ATNf Answer " Y " to retain all four of 

the functions, " N " to delete all four, 



or " A " to delete ATN only. 



Now BASIC will type out: 
XXXX BYTES FREE 



ALTAIR BASIC VERSION 3-0 
[FOUR-K VERSION] 
(or) 

[EIGHT-K VERSION] 
OK 



"XXXX" is the number of bytes 
available for program, variables, 
matrix storage and the stack. It 
does not include string space. 



You will now be ready to begin using ALTAIR BASIC. 
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APPENDIX C 



ERROR MESSAGES 



After an error occurs, BASIC returns to command level and types OK. 
Variable values and the program text remain intact, but the program can 
not be continued and all GOSUB and FOR context is lost. 

When an error occurs in a direct statement, no line number is printed. 

Format of error messages: 

Direct Statement fXX ERROR 

Indirect Statement fXX ERROR IN YYYYY 

In both of the above examples, "XX" will be the error code. The 
mil wiij. uc trie xuic iiuiiiucj. wiicrc trie ciiui uttui'cu iui Lne maireci 
statement. 

The following are the possible error codes and their meanings: 

ERROR CODE MEANING 

4K VERSION 

BS Bad Subscript. An attempt was made to reference a 

matrix element which is outside the dimensions of the 
matrix. In the 8K version, this error can occur if 
the wrong number of dimensions are used in a matrix 
reference; for instance, LET A(1,1,1)=Z when A has 
been dimensioned DIM A(2,2). 

DD Double Dimension. After a matrix was dimensioned, 

another dimension statement for the same matrix was 
encountered. This error often occurs if a matrix 
has been given the default dimension 10 because a 
statement like A(I)=3 is encountered and then later 
in the program a DIM A(100) is found. 

FC Function Call error. The parameter passed to a math 

or string function was out of range. 
FC errors can occur due to: 

a) a negative matrix subscript (LET A(-l)=v 

b) an unreasonably large matrix subsc ript 
032767) 

c) LOG-negative or zero argument 

d) SQR-negative argument 
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e) AtB with A negative and B not an integer 

f) a call to USR before the address of the 
machine language subroutine has been 
patched in 

g) calls to MID$, LEFT$, RIGHT$, INP, OUT, 
WAIT, PEEK, POKE, TAB, SPC or ON... GOTO 
with an improper argument . 

ID Illegal Direct. You cannot use an INPUT or (in 8K Version) 

DEFFN statement as a direct command. 

NF NEXT without FOR. The variable in a NEXT statement 

corresponds "to no previously executed FOR statement. 



OD Out of Data. A READ statement was executed but all of 

the DATA statements in the program have already been 
read. The program tried to read too much data or insuf- 
ficient data was included in the program. 



on 



SN 



Out of Memory. Program too large, too many variables, 
too many FOR loops, too many GOSUB's, too complicated 
an expression or any combination of the above, (see 



Appendix D) 

OV Overflow. The result of a calculation was too large to 

be represented in BASIC'S number format. If an underflow 
occurs, zero is given as the result and execution continues 
without any error message being printed. 



Syntax error. Missing parenthesis in an expression, 
illegal character in a line, incorrect punctuation, 



incorrect punctuation, etc. 

RG RETURN without GOSUB. A RETURN statement was encountered 

without a previous GOSUB statement being executed. 

US Undefined Statement. An attempt was made to GOTO, GOSUB 
or THEN to a statement which does not exist. 

/□ Division by Zero. 

8K VERSION (Includes all of the previous codes in addition to the 
following. ) 

CN Continue error. Attempt to continue a program when 
none exists, an error occured, or after a new line 
was typed into the program. 
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LS Long String. Attempt was made by use of the concatenation 

operator to create a string more than 255 characters long. 

OS Out of String Space. Save your program on paper tape or 

cassette, reload BASIC and allocate more string space 
or use smaller strings or less string variables. 

ST String Temporaries. A string expression was too complex. 
Break it into two or more shorter ones. 

TH Type Mismatch. The left hand side of an assignment 
statement was a numeric variable and the right hand 
side was a string, or vice versa; or, a function which 
expected a string argument was given a numeric one or 
vice versa. 

UF Undefined Function. Reference was made to a user defined 

function which had never been defined. 
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APPENDIX D 



SPACE HINTS 



In order to make your program smaller and save space, the following 
hints may be useful. 

1) Use multiple statements per line. There is a small amount of 
overhead (5bytes) associated with each line in the program. Two of these 
five bytes contain the line number of the line in binary. This means 
that no matter how many digits you have in your line number (minimum line 
number is 0, maximum is 65529), it takes the same number of bytes. Put- 
ting as many statements as possible on a line will cut down on the number 
of bytes used by your program. 

2) Delete all unnecessary spaces from your program. For instance: 

10 PRINT X, Y, Z 
uses three more bytes than 
10 PRINTX,Y,Z 
Note: All spaces between the line number and the first non- 
blank character are ignored. 

3) Delete all REM statements. Each REM statement uses at least 
one byte plus the number of bytes in the comment text. For instance, 
the statement 130 REM THIS IS A COMMENT uses up 24 bytes of memory. 

In the statement 140 X=X+Y: REM UPDATE SUM, the REM uses 14 bytes of 
memory including the colon before the REM. 

4) Use variables instead of constants. Suppose you use the constant 
3.14159 ten times in your program. If you insert a statement 

10 P=3. 14159 
in the program, and use P instead of 3.14159 each time it is needed, you 
will save 40 bytes. This will also result in a speed improvement. 

5) A program need not end with an END; so_, an END statement at 
the end of a program may be deleted. 

6) Reuse the same variables. If you have a variable T which is used 
to hold a temporary result in one part of the program and you need a tem- 
porary variable later in your program, use it again. Or, if you are asking 
the terminal user to give a YES or NO answer to two different questions 

at two different times during the execution of the program, use the same 
temporary variable A$ to store the reply. 

7) Use GOSUB's to execute sections of program statements that per- 
form identical actions. 

8) If you are using the 8K version and don't need the features of 
the 8K version to run your program, consider using the 4K version in- 
stead. This will give you approximately 4.7K to work with in an 8K machi .e , 
as opposed to the 1.6K you have available in an 8K machine running the 

8K version of BASIC. 
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9) Use the zero elements of matrices; for insinnce, A(0), B((),X). 

STORAGIi ALLOCATION INFORMATION 

Simple (non-matrix) numeric variables like V use 6 bytes; 2 for the 
variable name, and 4 for the value. Simple non-matrix string variables 
also use 6 bytes; 2 for the variable name, 2 for the length, and 2 for a 
pointer. 

Matrix variables use a minimum of 12 bytes. Two bytes are used for 
the variable name, two for the size of the matrix, two for the number of 
dimensions and two for each dimension along with four bytes for each of 
the matrix elements. 

String variables also use one byte of string space for each character 
in the string. This is true whether the string variable is a simple string 
variable like A$, or an element of a string matrix such as Ql$(5,2). 

When a new function is defined by a DEF statement, 6 bytes are used 
to store the definition. 

Reserved words such as FOR, GOTO or NOT, and the names or the 
intrinsic functions such as COS, INT and STR$ take up only one byte of 
program storage. All other characters in programs use one byte of pro- 
gram storage each. 

When a program is being executed, space is dynamically allocated on 
the stack as follows: 

1) Each active FOR... NEXT loop uses 16 bytes. 

2) Each active GOSUB (one that has not returned yet) uses 6 bytes. 

^) ^acn parentnesis encountereu in an expression uses 4 bytes and 
each temporary result calculated in an expression uses 12 bytes. 
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APPENDIX E 



SPEED HIN'IS 



The hints below should improve the execution time of your BASIC pro- 
gram. Note that some of these hints are the same as those used to decrease 
the space used by your programs. This means that in many cases you can 
increase the efficiency of both the speed and size of your programs at 
the same time. 

1) Delete all unnecessary spaces and REM's from the program. This 
may cause a small decrease in execution time because BASIC would otherwise 
have to ignore or skip over spaces and REM statements. 

2) THIS IS PROBABLY THE MOST IMPORTANT SPEED HINT BY A FACTOR OF 10. 
Use variables instead of constants. It takes more time to con- 
vert a constant to its floating point representation than it does to fetch 
the value of a simple or matrix variable. This is especially important 
within FOR... NEXT loops or other code that is executed repeatedly. 

3) Variables which are encountered first during the execution of 
a BASIC program are allocated at the start of the variable table. This 
means that a statement such as 5 A=0:B=A:C=A, will place A first, B second, 
and C third in the symbol table (assuming line 5 is the first statement 
executed in the program) . Later in the program, when BASIC finds a refer- 
ence to the variable A, it will search only one entry in the symbol table 
to find A, two entries to find B and three entries to find C, etc. 

4) (8K Version) NEXT statements without the index variable. NEXT 
is somewhat faster than NEXT I because no check is made to see if the 
variable specified in the NEXT is the same as the variable in the most re- 
cent FOR statement. 

5) Use the 8K version instead of the 4K version. The 8K version 
is about 40% faster than the 4K due to improvements in the floating point 
arithmetic routines. 

6) The math functions in the 8K version are much faster than their 
counterparts simulated in the 4K version, (see Appendix G) 
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APPENDIX F 



DERIVED FUNCTIONS 



The following functions, while not intrinsic to ALTAIR BASIC, can be 
calculated using the existing BASIC functions. 



FUNCTION 

SECANT 
COSECANT 
COTANGENT 
INVERSE SINE 
INVERSE COSINE 
INVERSE SECANT 
INVERSE COSECANT 
INVERSE COTANGENT 
HYPERBOLIC SINE 
HYPERBOLIC COSINE 
HYPERBOLIC TANGENT 
HYPERBOLIC SECANT 
HYPERBOLIC COSECANT 
HYPERBOLIC COTANGENT 
INVERSE HYPERBOLIC 

SINE 
INVERSE HYPERBOLIC 

COSINE 
INVERSE HYPERBOLIC 

TANGENT 
INVERSE HYPERBOLIC 

SECANT 
INVERSE HYPERBOLIC 

COSECANT 
INVERSE HYPERBOLIC 

COTANGENT 



FUNCTION EXPRESSED IN TERMS OF BASIC FUNCTIONS 

SEC(X) = l/COS(X) 

CSC(X) = 1/SINfX") 

COT(X) = 1/TAN(X) 

ARCSIN(X) = ATN(X/SQR(-X*X+1)) 

ARCCOS(X) = -ATN(X/SQR(-X*X+1))+1.5708 

ARCSEC(X) = ATN(SQR(X*X-1))+(SGN(X)-1)*1.5708 

ARCCSC(X) = ATN(1/SQR(X*X-1))+(SGN(X)-1)*1.5708 

ARCCOT(X) = -ATN(X)+i.5708 

SINH(X) = (EXP(X)-EXP(-X))/2 

COSH(X) = (EXP(X)+EXP(-X))/2 

TANH(X) = -EXP(-X)/(EXP(X)+EXP(-X))*2+1 

SECH(X) = 2/(EXP(X)+EXP(-X)) 

CSCH(X) = 2/ (EXP (X) -EXP OX)) 

COTH(X) = EXP(-X)/(EXP(X)-EXP(-X))*2+1 

ARGSINH(X) = LOG(X+SQR(X*X+l)) 

ARGCOSH(X) = LOG(X+SQR(X*X-l)) 

ARGTANH(X) = LOG((l+X)/ (l-X))/2 

ARGSECH(X) = LOG((SQR(-X*X+l)+l)/X) 

ARGCSCH(X) = L0G((SGN(X)*SQR(X*X+1)+1)/X) 

ARGCOTH(X) = LOG((X+l)/(X-l))/2 
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APPIiNDIX G 



SIMULATED MATH FUNCTIONS 



The following subroutines are intended for 4K BASIC users who want 
to use the transcendental functions not built into 4K BASIC. The cor- 
responding routines for these functions in the 8K version are much faster 
and more accurate. The REM statements in these subroutines are given for 
documentation purposes only, and should not be typed in because they take 
up a large amount of memory. 

The following are the subroutine calls and their 8K equivalents: 

8K EQUIVALENT SUBROUTINE CALL 

P9=X9+Y9 GOSUB 60030 

L9=LOG(X9) GOSUB 60090 

E9=EXP(X9) GOSUB 60160 

C9=COS(X9) GOSUB 60240 

T9=TAN(X9) GOSUB 60280 

A9=ATN(X9) GOSUB 60310 

The unneeded subroutines should not be typed in. Please note which 
variables are used by each subroutine. Also note that TAN and COS require 
that the SIN function be retained when BASIC is loaded and initialized. 



bOQQD REM EXPONENTIATION: PT-XITYI 

bOOlQ REM NEED: EXP-. LOG 

bD02Q REtl VARIABLES USED: A c l-,B t l- l C E i-,E^-.L c 5-.P^-,X c liY c 5 

b0030 PT-1 : E1=Q : IF YT-D THEN RETURN 

bDOMO IF X=i<D THEN IF INT(Y c i)=Y c ] THEN P C ^=1-S*Y C 1+4*INT(Y^/E) : X^-XT 

bGOSD IF X^oQ THEN GOSUB bUmD : X^-Y^LI : GOSUB bOlbQ 

bOObD PT-P1*E1 : RETURN 

bUQ7Q REM NATURAL LOGARITHM L^=L0G(X1) 

bQOflD REM VARIABLES USED: AI-.B^-.CI-.E^-.LI-.X^ 

bOOID E1=D : IF X^<=U THEN PRINT "LOG FC ERROR"; : STOP 

bDD^S AT-1 : B^=E : CT--S : REM THIS WILL SPEED UP THE FOLLOWING 

b0100 IF X^>=AT THEN XT-CT*X1 : -ET-E'J+AI : GOTO bOlDO 

bQllO IF X1<CT THEN X C J=B C 1*XT : ET-E1-A1 : GOTO bQllO 

bOlEQ X'KXI-. 70710?;) /(Xl*. 707107) : LT-XVXl 

b0130 L^=(((.5 c ia c i7T [ L c l+. I lbl471)*L c l+E. 3633=1) *X c i+E c i-. 5)* .b^3147 

b0135 RETURN 

b0140 REN EXPONENTIAL: E1-EXPCX1) 

b0150 REM VARIABLES USED: Al-iEI-iLliXI 

bOlbO L C 1=INT(1.M4S7*X C 1)+1 : IF L1<1S7 THEN bQlflO 

b0170 IF X1>D THEN PRINT "EXP OV ERROR"; : STOP 

b017S E^=0 : RETURN 

bDlflO E c l=.t. c 13147*L c l-X c l : AT-1.321flflE-3-l.m31bE-M*E e i 

bDnQ A^= ( CA^*E^-fi. 3013bE-3) *E1+4 . lb5?4E-S) *ET 

UJIIS ET-CCCAT-.ltbtbS) *E1+. S) *E C KL) *E1+1 : A'JfE 

bOll? IF L1<=Q THEN ATf-S : LT—Ll : IF LT-D THEN RETURN 
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LQEUQ FOR XT=1 TO LT : ET=AT*ET : NEXT XT : RETURN 

LQE1D REM COSINE: CT=COS(XT) 

LQEEO REI1 N-B- SIN MUST BE RETAINED AT LOAD-TIME 

L-QE30 REM VARIABLES USED: CT-.XT 

UOEHQ CT=SIN(XT+l.S7Qfl) : RETURN 

bOESQ REM TANGENT: TT=TAN(XT) 

bOEbO REM NEEDS COS. (SIN MUST BE RETAINED AT LOAD-TIME) 

bDE7Q REM VARIABLES USED: CT-.TT-.XT 

bUEfla GOSUB bDE4Q : TT=SIN (XT) /CT : RETURN 

bDETD REM ARCTANGENT: AT=ATN(XT) 

bQ30G REM VARIABLES USED: AT-.BT-iCT-.TT-.XT 

LD31D TT=SGN(XT): XT=ABS(XT): CT=0 : IF XT>1 THEN CT=1 : XT=1/XT 

bQ32D AT=XT*XT : BT=((E.flbbE3E-3*AT-l.blb57E-B)*AT+4.ET0TbE-S)*AT 

bD330 BT= ( ( ( (BT-? - SEflTE-E) * AT+ . !QbSb3) * AT- . IMEQflT) * AT+ . lTTT3b) * AT 

bQ34Q AT=((BT--33333E)*AT+1)*XT : IF CT=1 THEN AT=l.S7Dfi-AT 

bQ3S0 AT=TT*AT : RETURN 
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APPENDIX H 



CONVERTING BASIC PROGRAMS NOT WRITTEN FOR THE ALTAlk 



Though implementations of BASIC on different computers are in many 
ways similar, there are some incompatibilites which you should watch for 
if you are planning to convert some BASIC programs that were not written 
for the ALTAIR. 

1) Matrix subscripts. Some BASICs use " [ " and " ] " to denote 
matrix subscripts. ALTAIR BASIC uses " ( " and " ) ". 

2) Strings. A number of BASICs force you to dimension (declare) 
the length of strings before you use them. You should remove all 
dimension statements of this type from the program. In some of 
these BASICs, a declaration of the form DIM A$(I,J) declares a string 
matrix of J elements each of which has a length I. Convert DIM 
statements of this type to equivalent ones in ALTAIR BASIC: DIM A$(J) 

ALTAIR BASIC uses " + " for string concatenation, not !! , " or " § ". 

ALTAIR BASIC uses LEFT$, RIGHT$ and MID$ to take substrings of 
strings. Other BASICs use A$(I) to access the Ith character of 
the string A$, and A$(I,J) to take a substring of A$ from charac- 
ter position I to character position J. Convert as follows: 

OLD NEW 

A$(I) MID$(A$,I,1) 

A$(I,J) MID$(A$,I,J-I+1) 

This assumes that the reference to a substring of A$ is in an expres- 
sion or is on the right side of an assignment. If the reference to 
A$ is on the left hand side of an assignment, and X$ is the string 
expression used to replace characters in A$, convert as follows: 

OLD NEW 

A$ (I) =X$ A$=LEFT$ (A$ ,1-1) +X$+MID$ (A$ ,1+1) 

A$ (I , J) =X$ A$=LEFT$ (A$ , 1-1) +X$+MID$ (A$ , J+l) 

3) Multiple assignments. Some BASICs allow statements of the 
form: 500 LET B=C=0. This statement would set the variables B 
§ C to zero. 

In 8K ALTAIR BASIC this has an entirely different effect. All the 
ii _i s ti to ^6 right of the first one would be interpreted as logical 
comparison operators. This would set the variable B to -1 if C 
equaled 0. If C did not equal 0, B would be set to 0. The easiest 
way to convert statements like this one is to rewrite them as follows: 
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500 C=0:B=C. 

4J Some BASJCs use " '\ " instead of " : " to delimit multi|)le 
statements per line. Change the " \'s " to " :'s " in the program. 

5) Paper tapes punched by other BASICS may have no nulls at the end 
of each line, instead of the three per line recommended for use with 
ALTAIR BASIC. 

To get around this, try to use the tape feed control on the Teletype 
to stop the tape from reading as soon as ALTAIR BASIC types a car- 
riage return at the end of the line. Wait a second, and then continue 
feeding in the tape. 

When you have finished reading in the paper tape of the program, be 
sure to punch a new tape in ALTAIR BASIC'S format. This will save 
you from having to repeat this process a second time. 

6) Programs which use the MAT functions available in some BASICS 
will have to be re-written using FOR... NEXT loops to perform the 
appropriate operations . 
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APPENDIX I 






M?rg : TTze cassette features,, CLOAD and CSAVE, are only 
present in 8K BASICS which, are distributed on cassette. 
8K BASIC on paper tape will give the user about 130 more 
bytes of free memory, but it will not recognize the CLOAD 
or CSAVE commands. 

The CSAVE command saves a program on cassette tape. CSAVE takes one 
argument which can be any printing character. CSAVE can be given directly 
or in a program. Before giving the CSAVE command start your audio recorder 
on Record, noting the position of the tape. 

CSAVE writes data on channel 7 and expects the device status from 
channel 6. Patches can easily be made to change these channel numbers. 

When CSAVE is finished, execution will continue with the next state- 
ment. What is written onto the tape is BASIC'S internal representation 
of the program in memory. The amount of data written onto the tape will 
be equal to the size of the program in memory plus seven. 

Variable values are not saved on the tape, nor are they affected by 
the CSAVE command. The number of nulls being printed on your terminal 
at the start of each line has no affect on the CSAVE or CLOAD commands. 

CLOAD takes its one character argument just like the CSAVE command. 
For example, CLOAD E. 

The CLOAD command first executes a "NEW" command, erasing the cur- 
rent program and all variable values. The CLOAD command should be given 
before you put your cassette recorder on Play. 

BASIC will read a byte from channel 7 whenever the character ready 
flag comes up on channel 6. When BASIC finds the program on the tape, 
it will read all characters received from the tape into memory until it 
finds three consecutive zeros which mark the end of the program. Then 
BASIC will return to command level and type "OK". 

Statements given on the same line as a CLOAD command are ignored. 
The program on the cassette is not in a checksummed format, so the pro- 
gram must be checked to make sure it read in properly. 

If BASIC does not return to command level and type "OK", it means 
that BASIC either never found a file with the right filename character, 
or that BASIC found the file but the file never ended with three con- 
secutive zeros. By carefully watching the front panel lights, you can 
tell if BASIC ever finds a file with the right name. 

Stopping the ALTAIR and restarting it at location will prevent 
BASIC from searching forever. However, it is likely that there will 
either be no program in the machine, or a partial program that has errors. 
Typing NEW will always clear out whatever program is in the machine. 

Reading and writing data from the cassette is done with the INP, OUT 
and WAIT statements. Any block of data written on the tape should have 
its beginning marked with a character. The main thing to be careful of 
is allowing your program to fall behind while data passes by unread. 

Data read from the cassette should be stored in a matrix, since 
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there isn't time to process data as it is being read in. You will pro- 
bably want to detect the end of data on the tape with a special character, 
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USRLOC * m5, %T-7(o 



APPliNDIX J 



BASIC/MACHINE LANGUAGE INTERFACE 



In all versions of BASIC the user can link to a machine language 
subroutine. The first step is to set aside enough memory for the sub- 
routine. When BASIC asks "MEMORY SIZE?", you shouldn't type a return, 
because BASIC would then write into all of memory trying to find out 
how much memory your machine has and then use whatever memory it finds. 

The memory that BASIC actually uses is constantly modified, so you 
cannot store your machine language routine in those locations. 

BASIC always uses memory starting at location and as high upwards 
as you let it. BASIC cannot use non-contiguous blocks of memory. There- 
fore, it is best to reserve the top locations of memory for your machine 
language program. 

For example, if you have a 4K machine and want to use a 200 byte sub- 
routine, you should set memory size to 3896. Remember, BASIC always ac- 
cepts numbers in decimal and that 4K is really 2tl2=4096 rather than 4000. 
Now BASIC will not use any location >= 3896. 

If you try to allocate too much memory for your machine language pro- 
gram, you will get an OM (out of memory) error. This is because there is 
a certain amount of memory that BASIC must have or it will give an OM 
error and go back to the "MEMORY SIZE?" question. 

The starting location of your routine must be stored in a location 
known as "USRLOC". The exact octal location of USRLOC will be given with 
each distributed version of BASIC. It is not the same for the 4K and 8K 
versions. 

USRLOC for Version 3.0: 8K (both paper tape § cassette) = lll(octal) 

4K = 103(octal) 

Initially USRLOC is set up to contain the address of "ILLFUN", which 
is the routine that gives an FC (function call) error. USRLOC is the two 
byte absolute address of the location BASIC calls when USR is invoked. 

USR is a function just like ABS or INT and is called as follows: 
10 X=USR(3). 

When your routine is called the stack pointer is set up and you are 
allowed to use up to 8 levels of stack (16 bytes) . If you want to use 
more, you have to save BASIC'S stack pointer (SP) , set up your own, and 
restore BASIC'S before you return back to BASIC. 

All of the registers (A, B, C, D, E, H, L and PSW) can be changed. 
It is dangerous to modify locations in BASIC itself unless you know what 
you are doing. This is unlikely unless you have purchased a source copy 
of BASIC. Popping more entries off of the stack than you put on is almost 
guaranteed to cause trouble. 

To retrieve the argument passed to USR, you must call the routine 
whose address is given in location 4 and 5 (DEINT) . The low order 8 bits 
of an address are always stored in the lower address (4 in this case) , and 
the high order 8 bits are stored in the next (higher) memory address (5 
in this case) . 
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The argument to USR is truncated to an integer (calling USR with 3.8 
is the same as calling it with 3). If the argument is greater than 32767 
or less than -32768, an FC error will result. When DEINT returns, the 
two byte signed value of the argument will be in registers D § E. The 
high order byte would be in D, the low order byte in E. For instance: 
if the argument to USR was -1, D would equal 255 and E would equal 255; 
if the argument was 400, D would equal 1 and E would equal 144. 

To pass back a value from USR, set up a two byte value in registers 
A § B and call the routine whose address is given in locations 6 and 7. 
A § B should be set up in the same manner that D § E are when a value is 
passed to USR (A should contain the high order byte and B the low order 
byte) . 

If the routine whose address is given in locations 6 and 7 is not 
called, the function USR in the user's program will be an identity func- 
tion. That is, USR(X) will equal X. 

At the end of the USR routine a RET must be done to get back to 
BASIC. The BASIC program is completely stopped while USR is being exe- 

w***,w%* •**»« »-iiC £>-x. **&■*- ***« "j-aa **w w c#v vvulxiiuvu uiltJ-X UJI\ IClUilD • 

In the 4K version, the USR routine should not enable interrupts from 
a device. 4K BASIC uses the RST 7 location (56 decimal, 70 octal) to store 
a subroutine. If an interrupt occurs, this subroutine will be called which 
will have an undetermined and undesirable effect on the way BASIC behaves. 

In the 8K BASIC, locations 56, 57 and 58 decimal have been set aside 
to store a JMP to a user-provided interrupt service routine. Initially 
a RET instruction is stored at location 56, so until a user sets up the 
call to his interrupt service routine, interrupts will have no effect. 

Care must be taken in interrupt routines to save and restore the 
stack pointer, (A, B, C, D, E, H § L) and the PSW. Interrupt routines 
can pass data using PEEK, and can receive data using POKE. 

The interrupt service routine should re-enable interrupts with an EI 
instruction before it returns, as interrupts are automatically disabled 
.m^n i.iiv iiaviiuj/t wv,v.uxj. j.x uiu piuvcuuic j.a hul luiiuweu, me inter- 
rupt service routine will never "see" another interrupt. 

Though there is only one way of calling a machine language subroutine, 
this does not restrict the user to a single subroutine. The argument pas- 
sed to USR can be used to determine which routine gets called. Multiple 
arguments to a machine language routine can be passed with POKE or through 
multiple calls to USR by the BASIC program. 

The machine language routine can be loaded from paper tape or cassette 
before or after BASIC is loaded. The checksum loader, an unchecksummed 
loader, the console switches, or more conveniently the POKE function can be 
used to load the routine. 

A common use of USR for 4K users will be doing IN's and OUT's to 
special devices. For example, on a 4K machine a user wants USR to pass 
back the value of the front panel switch register: 

Answer to MEMORY SIZE? : 4050 

USRLOC patched to contain [17,322]=7722 Base 8=4050 decimal 
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At location 4050=7722 Base 8 put: 



7 / 22/ 333 


IN 


255 


7723/377 






7724/107 


MOV 


B,A 


7725/257 


XRA 


A 


7726/052 


LHLD 


6 


7727/006 






7730/000 






7731/351 


PCHL 





;(255 Base 10=377 Base 8) Get 
the value of the switches in A 
B gets low part of answer 
A gets high part of answer 
get address of routine 

;that floats [A,B] 

;go to that routine which will 

; return to BASIC 

;with the answer 



MORE ON PEEK AND POKE (8K VERSION ONLY) 

As mentioned before, POKE can be used to set up your machine language 
routine in high memory. BASIC does not restrict which addresses you can 
POKE. Modifying USRLOC can be accomplished using two successive calls to 
POKE. Patches which a user wishes to include in his BASIC can also be 
made using POKE. 

Using the PEEK function and OUT statement of 8K BASIC, the user can 
write a binary dump program in BASIC. Using INP and POKE it is possible 
to write a binary loader. 

PEEK and POKE can be used to store byte oriented information. When 
you initialize BASIC, answer the MEMORY SIZE? question with the amount of 
memory in your ALTAIR minus the amount of memory you wish to use as stor- 
age for byte formatted data. 

You are now free to use the memory in the top of memory in your ALTAIR 
as byte storage. See PEEK and POKE in the Reference Material for a further 
description of their parameters. 
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APPENDIX K 



ASCII CHARACTER CODES 



DECIMAL CHAR. 



DECIMAL CHAR. 



000 


•? 


NUL 


043 


+ 


001 


A 


SOH 


044 


> 


002 


■V" 


STX 


045 


- 


003 


c 


ETX 


046 


. 


004 





EOT 


047 


/ 


005 


E 


ENQ 


048 





006 


r 


ACK 


049 


1 


007 


L> 


BEL 


050 


2 


008 


U 


BS 


051 


3 


009 


1 


HT 


052 


4 


010 




LF 


053 


5 


Oil 


K 


VT 


054 


6 


012 


t- 


FF 


055 


7 


013 


l* 


CR 


056 


8 


014 


r. 


SO 


057 


9 


015 


j 


SI 


058 


\ 


016 


n 


DLE 


059 


> 


017 


V 


DC1 


060 


< 


018 


(? 


DC 2 


061 


= 


019 


- 


DC3 


062 


> 


020 


T 


DC4 


063 


? 


021 


•J 


NAK 


064 


@ 


022 


i 


SYN 


065 


A 


023 


v. 


ETB 


066 


B 


024 


y 


CAN 


067 


C 


025 


y 


EM 


068 


D 


026 


2. 


SUB 






027 


( 


ESCAPE 


070 


F 


028 


\ 


FS 


071 


G 


029 


) 


GS 


072 


H 


030 


t 


RS 


073 


I 


031 


<r 


US 


074 


J 


032 




SPACE 


075 


K 


033 




i 


076 


L 


034 




ii 


077 


M 


035 




# 


078 


N 


036 




$ 


079 





037 




% 


080 


P 


038 




$ 


081 


Q 


039 




+ 


082 


R 


040 




( 


083 


S 


041 




) 


084 


T 


042 




* 


085 


U 


LF=Line 


Feed FF=Form 


Feed 


CR=Carri 



DECIMAL CHAR. 



CR=Carriage Return 



086 


V 


087 


W 


088 


X 


089 


Y 


090 


Z 


091 


[ 


092 


\ 


093 


] 


094 


+ 


095 


<■ 


096 


v 


097 


a 


098 


b 


099 


c 


100 


d 


101 


e 


102 


f 


103 


g 


104 


h 


105 


i 


106 


J 


107 


k 


108 


1 


109 


m 


110 


n 


111 





1 1 ^i 




a.*. 


P 


113 


q 


114 


r 


115 


s 


116 


t 


117 


u 


118 


V 


119 


w 


120 


X 


121 


y 


122 


z 


123 


•c 


124 


I 


125 


} 


126 


'h 


127 


DEL 


rn 


DEL=Rubout 
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CHR$ is a string function which returns a one character string which 
contains the ASCII equivalent of the argument, according to the conversion 
table on the preceeding page. ASC takes the first character of a string 
and converts it to its ASCII decimal value. 

One of the most common uses of CHR$ is to send a special character 
to the user's terminal. The most often used of these characters is the 
BEL (ASCII 7). Printing this character will cause a bell to ring on some 
terminals and a "beep" on many CRT's. This may be used as a preface to 
an error message, as a novelty, or just to wake up the user if he has 
fallen asleep. (Example: PRINT CHR$(7);) 

A major use of special characters is on those CRT's that have cursor 
positioning and other special functions (such as turning on a hard copy 
printer) . 

As an example, try sending a form feed (CHR$(12)) to your CRT. On 
most CRT's this will usually cause the screen to erase and the cursor to 
"home" or move to the upper left corner. 

Some CRT's give the user the capability of drawing graphs and curves 
in a special point-plotter mode. This feature may easily be taken advan- 
tage of through use of ALTAIR BASIC'S CHR$ function. 
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APPENDIX L 



EXTENDED BASIC 



When EXTENDED BASIC is sent out, the BASIC manual will be updated . 
to contain an extensive section about EXTENDED BASIC. Also, at this time 
the part of the manual relating to the 4K and 8K versions will be revised 
to correct any errors and explain more carefully the areas users are he 
ing trouble with. This section is here mainly to explain what EXTENDEI 
BASIC will contain. 
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INTEGER VARIABLES These are stored as double byte signed quantities 
ranging from -32768 to +32767. They take up half as much space as normal 
variables and are about ten times as fast for arithmetic. They are denoted 
by using a percent sign (%) after the variable name. The user doesn't 
have to worry about conversion and can mix integers with other variable 

«./pC-. -wi tA^ivjjiunj! int. jpvi/u iiupiuvciuciiL waujcu uy using j.riLtjyeia lul 

loop variables, matrix indices, and as arguments to functions such as | 
AND, OR or NOT will be substantial. An integer matrix of the same dimen- 
sions as a floating point matrix will require half as much memory. 

DOUBLE-PRECISION Double-Precision variables are almost the oppo- 
site of integer variables, requiring twice as much space (8bytes per value) 
and taking 2 to 3 times as long to do arithmetic as single-precision 
variables. Double-Precision variables are denoted by using a number sign 
(#) after the variable name. They provide over 16 digits of accuracy. 
Functions like SIN, ATN and EXP will convert their arguments to single- 
precision, so the results of these functions will only be good to 6 digits. 
Negation, addition, subtraction, multiplication, division, comparision, 
input, output and conversion are the only routines that deal with Double- 
Precision values. Once again, formulas may freely mix Double-Precision 
values with other numeric values and conversion of the other values to 

HauK 1 Q_ D "*»**<-» 1 e T rtn 1.11 1 1 V\r\ A f\-r* *\ nn4> mmn +.4 «*tT 1 « . 

uv/uuxv i xvvj.jj.vji nxn uc U.WJ1C ttutUJIIdLX^CULl V . 

PRINT USING Much like COBOL picture clauses or FORTRAN format 
statements, PRINT USING provides a BASIC user with complete control over 
his output format. The user can control how many digits of a number are 
printed, whether the number is printed in scientific notation and the 
placement of text in output. All of this can be done in the 8K version 
using string functions such as STR$ and MID$, but PRINT USING makes it 
much easier. 

DISK I/O EXTENDED BASIC will come in two versions, disk and non- 
disk. There will only be a copying charge to switch from one to the 
other. With disk features, EXTENDED BASIC will allow the user to save and 
recall programs and data files from the ALTAIR FLOPPY DISK. Random ac- 
cess as well as sequential access will be provided. Simultaneous use of 
multiple data files will be allowed. Utilities will format new disks, 
delete files and print directories. These will be BASIC programs using 
special BASIC functions to get access to' disk information such as file 
length, etc. User programs can also access these disk functions, enabling 
the user to write his own file access method or other special purpose 
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disk routine. The file format can be changed to allow the use of other 
(.non- floppy J disks. This type of modification will be done by M1TS under 
special arrangement. 

OTHER FEATURES Other nice features which will be added are: 

Fancy Error Messages 

An ELSE clause in IF statements 

LIST, DELETE commands with line range as arguments 

Deleting Matrices in a program 

TRACE ON/OFF commands to monitor program flow 

EXCHANGE statement to switch variable values (this will speed 

up string sorts by at least a factor of two) . 
Multi-Argument, user defined functions with string arguments 

and values allowed 

Other features contemplated for future release are: 

A multiple user BASIC 

Explicit matrix manipulation 

Virtual matrices 

Statement modifiers 

Record I/O 

Paramaterized GOSUB 

Compilation 

Multiple USR functions 

"Chaining" 

EXTENDED BASIC will use about UK of memory for its own code (10K 
for the non-disk version) leaving IK free on a 12K machine. It will take 
almost 20 minutes to load from paper tape, 7 minutes from cassette, and 
less than 5 seconds to load from disk. 

We welcome any suggestions concerning current features or possible 
additions of extra features. Just send them to the ALTAIR SOFTWARE 
DEPARTMENT. 
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APPENDIX M 



BASIC TEXTS 



Below are a few of the many texts that may be helpful in learning 

1) BASIC PROGRAMMING, John G. Kemeny, Thomas E Kurtz, 1967, pl45 

2) BASIC , Albrecht, Finkel and Brown, 1973 

3) A GUIDED TOUR OF COMPUTER PROGRAMMING IN BASIC, Thomas A Dwyer 
and Michael S. Kaufman; Boston: Houghton Mifflin Co., 1973 

Books numbered 1 § 2 may be obtained from: 

People's Computer Company 
P.O. Box 310 
Menlo Park, California 
94025 

They also have other books of interest, such as: 

101 BASIC GAMES , Ed. David Ahl, 1974 p250 

WHAT TO DO AFTER YOU HIT RETURN or PCC's FIRST 
BOOK OF COMPUTER GAMES 

COMPUTER LIB § DREAM MACHINES , Theodore H. Nelson, 1974, pl86 
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SYSTEM INTERFACE 
file "8K Basic" 



BASIC: 

SYSINITJ: 
0000 C30000 JMP INITIALZ 

REENTERBASIC: 
0003 C30000 JMP cmndrstr 



;FULL RESTART INITIALIZATION 



;REENTER AFTER PAUSE 



Monitor Routines 



0006 0406 co equ 406h 

0006 0409 cinb equ 

0006 0538 dclr equ 

0006 04F4 xco equ 4f4h 



;c -> screen 

409h ;keyboard -> ac, carry set if any 

538h ;clear screen 

;c -> printer (blocking) 



NON-BLOCKING INPUT 

CHAR IN AC IF NOT ZERO 
ZERO SET IF NONE 







SYSKEYIN: 




0006 


C5 


push 


b 


0007 


D5 


push 


d 


0008 


E5 


push 


h 


0009 


CD0904 


call 


cinb ;get char 


OOOC 


D20000 


jnc 


syskeynone 


0OOF 


FEOO 


cpi 





0011 


CAOOOO 


jz 


clearscreen 


0014 


FE1F 


cpi 


lfh ;us to break to fourteen 


0016 


CAOOOO 


jz 
syskeyinret 


gomonitor 


0019 


El 


pop 


h 


001A 


Dl 


pop 


d 


001B 


CI 


pop 


b 


001C 


C9 


ret 
syskeynone: 




001D 


97 


sub 


a ;set zero 


001E 


C31900 


J"<P 
clearscreen 


syskeyinret 


0021 


CD3805 


call 


dclr ;c1ear screen 


0024 


C31D00 


jfip 
gomonitor: 


syskeynone 


0027 


CF 


rst 


1 ;about using us (t<-) 


0028 


00 


nop 




0029 


00 


nop 








■ SEND AC 


TO SCREEN 






SYSDISPL: 




002A 


F5 


push 


psw 


002B 


C5 


push 


b 


002C 


D5 


push 


d 



basic. LST 
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002D E5 


push 


h 




002E 4F 


mov 


c,a 




002F CD0604 


call 


CO 


;c to screen 


0032 3A0000 


Ida 


p3010 


;print on the 3010 if zero 


0035 A7 


ana 


a 




0036 CCF404 


cz 


XCO 


;yes print 


0039 El 


pop 


h 




003A Dl 


pop 


d 




003B CI 


pop 


b 




003C Fl 


pop 


psw 




003D C9 


RET 
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CHECK FOR BREAK REQUEST 
SET ZERO TO BREAK 



003E 


CD0600 


SYSBREAK: 
call 


syskeyin 


0041 


CA0000 


jz 


nobreak 


0044 


97 


sub 


a 


0045 


C9 


ret 
nobreak: 




0046 


3E01 


mvi 


a.l 


0048 


B7 


ora 


a 


0049 


C9 


ret 
• DELAY 
SYSWAIT: 




004A 


C9 


RET 








; RETURN 


TO MONITOR 


004B 


B400 


MONITOR 
SYSQUIT: 


EQU 


004B 


C300B4 


JMP 


MONITOR 



0B400H 
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004E 


OOOD 


CR 


EQU 


ODH 


004E 


OOOA 


LF 


EQU 


OAH 


004E 


0007 


BEL 


EQU 


07H 


004E 


0008 


BS 


EQU 


08H 


004E 


0009 


TAB 


EQU 


09H 


004E 


0009 


HT 


EQU 


09H 


004E 


0011 


DC1 


EQU 


11H 


004E 


007F 


DEL 


EQU 


7FH 


004E 


OOOF 


SI 


EQU 


OFH 


004E 


0003 


ETX 


EQU 


03H 


004E 


OOOC 


FF 


EQU 


OCH 


004E 


001B 


ESC 


EQU 


1BH 
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basil 


:.lst 






5-5 


004E 


0080 


KEYSTM 


EQU 


80H 


004E 


0080 


KEYDAT 


EQU 


KEYSTM 


004E 


0081 


KEYREM 


EQU 


KEYDAT+1 


004E 


0082 


KEYLSAL 


EQU 


KEYREM+1 


004E 


0082 


KEYEND 




KEYLSAL 


004E 


0083 


KEYFOR 


EQU 


KEYEND+1 


004E 


0084 


KEYNEX 


EQU 


KEYFOR+1 


004E 


0085 


KEYINPT 


EQU 


KEYNEX+1 


004E 


0086 


KEYDIM 


EQU 


KEYINPT+1 


004E 


0087 


KEYREA 


EQU 


KEYOIM+1 


004E 


0088 


KEYLET 


EQU 


KEYREA+1 


004E 


0089 


KEYGTO 


EQU 


KEYLET+1 


004E 


008A 


KEYRUN 


EQU 


KEYGTO+1 


004E 


008B 


KEYIF 


EQU 


KEYRUN+1 


004E 


008C 


KEYELS 


EQU 


KEYIF+1 


004E 


008D 


KEYRES 


EQU 


KEYELS+1 


004E 


008E 


KEYGSB 


EQU 


KEYRES+1 


004E 


008F 


KEYRET 


EQU 


KEYGSB+1 


004E 


0090 


KEYSTOP 


EQU 


KEYRET+1 


004E 


0091 


KEYON 


EQU 


KEYSTOP+1 


004E 


0092 


KEYAUT 


EQU 


KEYON+1 


004E 


0093 


KEYDEL 


EQU 


KEYAUT+1 


004E 


0094 


KEYPLT 


EQU 


KEYDEL+1 


004E 


0095 


KEYWAI 


EQU 


KEYPLT+1 


004E 


0096 


KEYPRT 


EQU 


KEYWAI+1 


004E 


0097 


KEYOEF 


EQU 


KEYPRT+1 


004E 


0098 


KEYCON 


EQU 


KEYDEF+1 


004E 


0099 


KEYLIS 


EQU 


KEYCON+1 


004E 


009A 


KEYEDI 


EQU 


KEYLIS+1 


004E 


009B 


KEYCLR 


EQU 


KEYEDI+1 


004E 


009C 


KEYCLD 


EQU 


KEYCLR+1 


004E 


009D 


KEYCSV 


EQU 


KEYCLD+1 


004E 


009E 


KEYNEW 


EQU 


KEYCSV+1 


004E 


009F 


KEYSET 


EQU 


KEYNEW+1 


004E 


00A0 


KEYSUGR 


EQU 


KEYSET+1 


004E 


OOAO 


KEYLSBL 


EQU 


KEYSUGR 


004E 


OOAO 


KEYTHEN 


EQU 


KEYSUGR 


004E 


O0A1 


KEYTO 


EQU 


KEYTHEN+1 


004E 


00A2 


KEYSTEP 


EQU 


KEYTO+1 


004E 


00A3 


KEYLSBH 


EQU 


KEYSTEP+1 


004E 


00A3 


KEYPRM 


EQU 


KEYLSBH 


004E 


00A4 


KEYLINE 


EQU 


KEYPRM+1 


004E 


O0A5 


KEYLSAH 


EQU 


KEYLINE+1 


004E 


00A5 


KEYTAB 


EQU 


KEYLSAH 


004E 


00A6 


KEYSPC 


EQU 


KEYTAB+1 


004E 


00A7 


KEYFN 


EQU 


KEYSPC+1 


004E 


00A8 


KEYNOT 


EQU 


KEYFN+1 


004E 


00A9 


KEYOFF 


EQU 


KEYNOT+1 


004E 


OOAA 


KEYOPR 


EQU 


KEYOFF+1 


004E 


OOAA 


KEYADD 


EQU 


KEYOPR 


004E 


OOAB 


KEYSUB 


EQU 


KEYADD+1 


004E 


OOAC 


KEYMUL 


EQU 


KEYSUB+1 


004E 


OOAD 


KEYDIV 


EQU 


KEYMUL+1 


004E 


OOAE 


KEYMOD 


EQU 


KEYDIV+1 


004E 


OOAF 


KEYEXPT 


EQU 


KEYMOD+1 
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STATEMENT CODES 



;OPERATOR CODES 



basK 


;.lst 






5-5 


004E 


OOBO 


KEYAND 


EQU 


KEYEXPT+1 


004E 


OOB1 


KEYOR 


EQU 


KEYAND+1 


004E 


00B2 


KEYMAX 


EQU 


KEYOR+1 


004E 


OOB3 


KEYMIN 


EQU 


KEYMAX+1 


004E 


OOB4 


KEYREL 


EQU 


KEYMIN+1 


004E 


0084 


KEYGT 


EQU 


KEYREL 


004E 


00B5 


KEYEQ 


EQU 


KEYGT+1 


004E 


00B6 


KEYLT 


EQU 


KEYEQ+1 


004E 


00B7 


KEYFCT 


EQU 


KEYLT+1 


004E 


00B7 


KEYSGN 


EQU 


KEYFCT 


004E 


O0B8 


KEYINT 


EQU 


KEYSGN+1 


004E 


00B9 


KEYABS 


EQU 


KEYINT+1 


004E 


OOBA 


KEYSQR 


EQU 


KEYABS+1 


004E 


OOBB 


KEYRND 


EQU 


KEYSQR+1 


004E 


OOBC 


KEYLOG 


EQU 


KEYRND+1 


004F 


OOBO 


KEYEXP 


EQU 


KEYLOG+1 


004E 


OOBE 


KEYCOS 


EQU 


KEYEXP+1 


004E 


OOBF 


KEYSIN 


EQU 


KEYCOS+1 


004E 


OOCO 


KEYTAN 


EQU 


KEYSIN+1 


004E 


00C1 


KEYATA 


EQU 


KEYTAN+1 


004E 


00C2 


KEYUSR 


EQU 


KEYATA+1 


004E 


0OC3 


KEYFRE 


EQU 


KEYUSR+1 


004E 


00C4 


KEYPORT 


EQU 


KEYFRE+1 


004E 


0OC5 


KEYPOS 


EQU 


KEYPORT+1 


004E 


00C6 


KEYMEM 


EQU 


KEYPOS+1 


004E 


00C7 


KEYLEN 


EQU 


KEYMEM+1 


004E 


00C8 


KEYSTR 


EQU 


KEYLEN+1 


004E 


00C9 


KEYVAL 


EQU 


KEYSTR+1 


004E 


OOCA 


KEYASC 


EQU 


KEYVAL+1 


004E 


OOCB 


KEYCHR 


EQU 


KEYASC+1 


004E 


OOCC 


KEYHEX 


EQU 


KEYCHR+1 


004E 


OOCD 


KEYHXV 


EQU 


KEYHEX+1 


004E 


OOCE 


KEYUPR 


EQU 


KEYHXV+1 


004E 


OOCF 


KEYLFT 


EQU 


KEYUPR+1 


004E 


OODO 


KEYRIG 


EQU 


KEYLFT+1 


004E 


0OD1 


KEYMID 


EQU 


KEYRIG+1 


004E 


0OD2 


KEYINS 


EQU 


KEYMID+1 


004E 


00O3 


KEYS 


EQU 


KEYINS+1 
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; RELATION CODES 



[FUNCTION COOES 



;LAST ENTRY 



basic. LST 










STMTABL: 




004E 


0000 


DW 


DATSTM 


0050 


0000 


DW 


REMSTM 


0052 


0000 


DW 


ENDSTM 


0054 


0000 


DW 


FORSTM 


0056 


0000 


DW 


NEXSTM 


0058 


0000 


DW 


INPSTM 


005A 


0000 


DW 


DIMSTM 


005C 


0000 


DW 


REASTM 


005E 


0000 


DW 


LETSTM 


0060 


0000 


DW 


GTOSTM 


0062 


0000 


DW 


RUNSTM 


0064 


0000 


DW 


IFSTM 


0066 


0000 


DW 


ELSSTM 


0068 


0000 


DW 


RESSTM 


006A 


0000 


DW 


GSBSTM 


006C 


0000 


DW 


RETSTM 


006E 


0000 


DW 


STPSTM 


0070 


0000 


DW 


ONSTM 


0072 


0000 


DW 


AUTSTM 


0074 


0000 


DW 


DELSTM 


0076 


0000 


DW 


PLTSTM 


0078 


0000 


DW 


WAISTM 


007A 


0000 


DW 


PRTSTM 


007C 


0000 


DW 


DEFSTM 


007E 


0000 


DW 


CONSTM 


0080 


0000 


DW 


LISSTM 


0082 


0000 


DW 


EDISTM 


0084 


0000 


DW 


CLRSTM 


0086 


0000 


DW 


CLDSTM 


0088 


0000 


DW 


CSVSTM 


008A 


0000 


DW 


NEWSTM 


ooac 


0000 


DW 


SETSTM 
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;STATEMENT ROUTINES 



;LISTED WITH BLANK AFTER 



basic. LST 


OPRTABL: 




008E 79 


DB 


79H 


008F 0000 


DW 


ADDOPR 


0091 79 


DB 


79H 


0092 0000 


DW 


SUBOPR 


0094 7B 


DB 


7BH 


0095 0000 


DW 


MULOPR 


0097 7B 


DB 


7BH 


0098 0000 


DW 


DIVOPR 


009A 7B 


DB 


7BH 


009B 0000 


DW 


MODOPR 


009D 7F 


DB 


7FH 


009E 0000 


DW 


EXPOPR 


00A0 50 


DB 


50H 


00A1 0000 


DW 


ANDOPR 


00A3 46 


DB 


46H 


O0A4 0000 


DW 


ORNOPR 


00A6 76 


DB 


76H 


00A7 0000 


DW 


MAXOPR 


O0A9 76 


DB 


76H 


OOAA 0000 


DW 


MINOPR 
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;OPERATORS AND PRECEDENCE 



basic. LST 


FCTTABL: 




OOAC OOOO 


DW 


SGNFCT 


OOAE 0000 


DW 


INTFCT 


OOBO 0000 


DW 


ABSFCT 


OOBZ 0000 


DW 


SQRFCT 


0OB4 0000 


DW 


RNDFCT 


00B6 0000 


DW 


LOGFCT 


00B8 0000 


DW 


EXPFCT 


OOBA 0000 


DW 


COSFCT 


OOBC 0000 


DW 


SINFCT 


OOBE 0000 


DW 


TANFCT 


OOCO 0000 


DW 


ATNFCT 


00C2 0000 


DW 


ERRAFC 


00C4 0000 


DW 


FREFCT 


00C6 0000 


DW 


PORFCT 


00C8 0000 


DW 


POSFCT 


OOCA 0000 


DW 


MEMFCT 


OOCC 0000 


DW 


LENFCT 


OOCE 0000 


DW 


STRFCT 


OODO 0000 


DW 


VALFCT 


00D2 0000 


DW 


ASCFCT 


00D4 0000 


DW 


CHRFCT 


00D6 0000 


DW 


HEXFCT 


00D8 0000 


DW 


HXVFCT 


OODA 0000 


DW 


UPRFCT 


OODC 0000 


DW 


LFTFCT 


OODE 0000 


DW 


RIGFCT 


OOEO 0000 


DW 


MIDFCT 


00E2 0000 


DW 


INSFCT 
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; FUNCTION ROUTINES 
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00E4 
00E7 
OOEA 
OOEC 
OOEF 
00F2 
OOF4 
00F7 
OOFA 
OOFC 
OOFF 
0102 



0104 
0107 
0109 
010C 
010F 
0112 
0115 
0116 
0119 
011B 
011E 



000000 

000000 

0000 

000000 

000000 

0000 

000000 

000000 

0000 

000000 

000000 

0000 



94504C 

4FD4 

965052 

494ED4 

A35052 

4F4D50 

D4 

C4504F 

52D4 

45504F 

D3 



011F 
0122 
0124 
0127 
0128 
012B 
012C 
012F 
0130 
0133 

0134 
0137 
0138 
013B 
013D 
0140 
0141 
0144 
0147 
0149 
014C 
014F 
0150 
0153 
0154 
0157 
015A 



924155 

54CF 

B0414E 

C4 

B94142 

D3 

C14154 

CE 

4A4153 

C3 

815245 

CD 

875245 

41C4 

8A5255 

CE 

8D5245 

53544F 

52C5 

8F5245 

545552 

CE 

BB524E 

C4 

505249 

474854 

A4 



KEYWADDS: 
DW 



DW 

DW 

DW 

KEYWORDS: 
KEYWRDO: 
DB 

DB 

DB 

DB 

DB 

KEYWRD1: 
DB 

DB 

DB 

DB 

DB 

KEYWRD2: 
DB 

DB 

DB 

DB 

DB 

DB 
DB 

KEYWRD3: 



; POINTERS TO KEYWORD GROUPS 
KEYWRDO, KEYWRD1, KEYWRD2, KEYWRD3 



KEYWRD4, KEYWRD5 , KEYWRD6, KEYWRD7 

KEYWRD8. KEYWRD9, KEYWRDA, KEYWRDB 

KEYWRDC, KEYWRDO, KEYWRDE , KEYWRDF 

KEYPLT, "PLO", 'T+128 

KEYPRT, "PRIN", 'T+128 

KEYPRM, "PROMP", 'T+128 

KEYPORT, "POR", 'T+128 
KEYPOS-80H, "PO", 'S+128 

KEYAUT, "AUT". '0+128 

KEYAND, "AN", 'D+128 

KEYABS, "AB". 'S+128 

KEYATA. "AT". 'N+128 
KEYASC-80H, "AS", 'C+128 

KEYREM, "RE", 'M+128 

KEYREA, "REA", 'D+128 

KEYRUN, "RU", 'N+128 

KEYRES, "RESTOR", 'E+128 

KEYRET, "RETUR", 'N+128 

KEYRND, "RN", 'D+128 
KEYRIG-80H, "RIGHT", '$+128 



basic. LST 
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-78 14: 


14:39 


015B 905354 


DB 


KEYSTOP, 


"STO", 


'P+128 


015E 4FD0 










0160 98434F 


DB 


KEYCON, 


"CON", 


'T+128 


0163 4ED4 










0165 9B434C 


OB 


KEYCLR, 


"CLEA" 


, "R+128 


0168 4541D2 










016B 9D5341 


DB 


KEYCSV, 


"SAV" , 


'E+128 


016E 56C5 










0170 9F5345 


DB 


KEYSET, 


"SE", 


'T+128 


0173 04 










0174 A25354 


DB 


KEYSTEP, 


"STE", 


'P+128 


0177 45D0 










0179 A65350 


DB 


KEYSPC, 


"SP", 


'C+128 


017C C3 










017D B75347 


DB 


KEYSGN, 


"SG", 


'N+128 


0180 CE 










0181 BA5351 


DB 


KEYSQR, 


"SQ" , 


'R+128 


0184 D2 










0185 BE434F 


DB 


KEYCOS, 


"CO" , 


'S+128 


0188 D3 










0189 BF5349 


DB 


KEYSIN, 


"SI", 


'N+128 


018C CE 










018D C85354 


DB 


KEYSTR, 


"STR", 


'$+128 


0190 52A4 










0192 4B4348 


DB 


KEYCHR-80H, 


"CHR", 


'$+128 


0195 52A4 


KEYWRD4: 








0197 804441 


DB 


KEYDAT, 


"DAT", 


•A+128 


019A 54C1 










019C 864449 


DB 


KEYDIM, 


"01", 


'M+128 


019F CD 










01A0 934445 


DB 


KEYDEL, 


"DELET 


", 'E+12, 


01A3 4C4554 










01A6 C6 










01A7 974445 


DB 


KEYDEF, 


"DE", 


•F+128 


01AA C6 










01AB A05448 


DB 


KEYTHEN, 


"THE", 


'N+128 


01AE 45CE 










01BO A154CF 


DB 


KEYTO, 


IITII 1 


0+128 


01B3 A55441 


DB 


KEYTAB, 


"TA", 


'B+128 


01B6 C2 










01B7 405441 


DB 


KEYTAN-80H, 


"TA", 


'N+128 


01BA CE 


KEYWRD5: 








01BB 82454E 


DB 


KEYEND, 


"EN", 


'D+128 


01BE C4 










01BF 8C454C 


DB 


KEYELS, 


"ELS", 


'E+128 


01C2 53C5 










01C4 9A4544 


DB 


KEYEDI, 


"EDI", 


'T+128 


01C7 49D4 










01C9 BD4558 


DB 


KEYEXP, 


"EX", 


•P+128 


01CC DO 










01CD C25553 


DB 


KEYUSR, 


"US", 


'R+128 


01D0 D2 










01D1 4E5550 


DB 


KEYUPR-80H, 


"UPPER 


", '$+121 


01D4 504552 
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01D7 A4 

01D8 83464F 

01DB DZ 

OluC A746CE 

OlDF C3465Z 

01E2 C5 

01E3 495641 

01E6 CC 

01E7 89474F 
OlEA 54CF 
OlEC 8E474F 
OlEF 5355CZ 
OlFZ 155741 
01F5 49D4 

01F7 CC4846 
OlFA 58A4 
OlFC 4D4845 
OlFF 58D6 

0201 85494E 
0Z04 5055D4 
0207 8B49C6 
020A B8494E 
020D D4 
020E 52494E 
0211 5354D2 

0214 2CAA 

0216 2AAB 



KEYWRD6: 
DB 

OB 
DB 



KEYFOR. 



"FO", 'R+128 



0218 
021B 
021C 
0Z1F 
0221 
0224 
0226 
0229 
022B 
022D 
0230 
0231 
0234 
0235 
0238 



884C45 

04 

994C49 

53D4 

9C4C4F 

41C4 

A44C49 

4EC5 

B6BC 

BC4C4F 

C7 

C74C45 

CE 

4F4C45 

4654A4 



023B ABAD 
023D AE4D4F 

0240 C4 

0241 B24D41 

0244 D8 

0245 B34D49 



DB 

KEYWRD7: 
DB 

DB 

DB 

KEYWRD8: 
DB 

DB 

KEYWRD9: 
DB 

DB 
DB 

DB 

KEYWRDA: 
DB 

KEYWRDB: 
DB 

KEYWRDC: 
DB 

DB 

DB 

DB 

DB 
DB 

DB 

DB 

KEYWRDD: 
DB 

DB 

DB 
DB 



KEYFN, "F". 'N+128 
KEYFRE, "FR", 'E+128 

KEYVAL-80H, "VA". 'L+128 



KEYGTO, "GOT", '0+128 

KEYGSB, "GOSU". 'B+128 

KEYWAI-80H, "WAI", 'T+128 

KEYHEX, "HEX", '$+128 

KEYHXV-80H, "HEX", 'V+128 



KEYINPT, 

KEYIF, 
KEYINT, 



"INPU", 'T+128 

"I", 'F+1Z8 
"IN". 'T+128 



KEYINS-80H, "INST", 'R+128 

KEYMUL-80H, '*+128 

KEYADD-80H, '++128 

KEYLET, "LE", 'T+128 



KEYLIS, 

KEYCLD, 

KEYLINE, 

KEYLT, 
KEYLOG, 



"LIS", 'T+128 

"LOA", 'D+128 

"LIN", 'E+128 

•<+128 
"LO", 'G+1Z8 



KEYLEN, "LE", 'N+1Z8 
KEYLFT-80H, "LEFT", '$+128 



KEYSUB, 
KEYMOD, 

KEYMAX, 

KEYMIN, 



'-+1Z8 
"MO", 'D+1Z8 

"MA", 'X+128 

"MI", 'N+128 
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0248 


CE 








0249 


B5BD 


DB 


KEYEQ. 


'•+128 


024B 


C64D45 


OB 


KEYMEM, 


"ME", 'M+128 


024E 


CD 








024F 


514D49 


DB 


KEYMID-80H , 


"MID", '$+128 


0252 


44A4 


KEYWRDE: 






0254 


844E45 


DB 


KEYNEX, 


"NEX", 'T+128 


0257 


58D4 








0259 


9E4E45 


DB 


KEYNEW, 


"NE", 'W+128 


025C 


D7 








025D 


A84E4F 


DB 


KEYNOT, 


"NO", 'T+128 


0260 


04 








0261 


AFDE 


DB 


KEYEXPT, 


't+128 


0263 


34BE 


DB 
KEYWROF: 


KEYGT-80H, 


'>+128 


0265 


96BF 


DB 


KEYPRT, 


'7+128 


0267 


914FCE 


DB 


KEYON, 


"0", 'N+128 


026A 


A94F46 


DB 


KEYOFF, 


"OF", 'F+128 


0260 


C6 








026E 


ADAF 


DB 


KEYDIV, 


'/+128 


0270 


314FD2 


DB 


KEYOR-80H, 


"0", 'R+128 
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0273 
0276 



027C 
027F 
0282 

0283 
0286 
0289 
028C 

028D 
0290 
0293 

0294 
0297 
029A 
029D 

02A0 
02A3 
02A6 
02A9 
02AC 

02AE 
02B1 
02B4 
02B7 

02BA 
02BD 
02CO 
02C3 
02C6 

02C7 
02CA 
02CD 
02DO 
02D3 

02D4 
02D7 
02DA 
02DD 

02E0 
02E3 
02E6 



434F4E 
54494E 
554500 

444556 
494345 
00 

44494D 
454E53 
494F4E 
00 

444952 
454354 
00 

444956 
494445 
204259 
203000 

46554E 
435449 
4F4E20 
43414C 
4C00 

4C4F4E 
472053 
545249 
4E4700 

4D4540 
4F5259 
205350 
414345 
00 

4E4558 
542057 
2F4F20 
464F52 
00 

4F5554 
204F46 
204441 
544100 

4F5645 
52464C 
4F5700 



ERRN: 
ERRNCN: 
DB 



ERRNSL: 
DB 



ERRNDD: 
DB 



ERRNID: 
DB 



ERRNDO: 
DB 



ERRNFC: 
DB 



ERRNLS: 
DB 



ERRMOM: 
DB 



ERRNNF: 

DB 



ERRNOD: 
DB 



ERRNOV: 
DB 



'CONTINUE", 



"DEVICE", 



"DIMENSION" ,0 



"DIRECT", 



"DIVIDE BY 0",0 



"FUNCTION CALL",0 



"LONG STRING", 



"MEMORY SPACE", 



'NEXT W/O FOR",0 



'OUT OF DATA",0 



•OVERFLOW", 



; ERROR CODES 
; CONTINUE ERROR 

; SAVE/LOAD DEVICE ERROR 

; DOUBLE DIMENSION 

; ILLEGAL DIRECT 
;DIVISION BY ZERO 

; FUNCTION CALL 

;LONG STRING 
;OUT OF MEMORY 

;NEXT WITHOUT FOR 



;OUT OF DATA 



; OVERFLOW 



ERRNRG: 
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02E9 524554 

02EC 4E2057 

02EF 2F4F20 

02F2 474F53 

02F5 554200 

02F8 535452 
02FB 494E47 
02FE 205350 
0301 414345 

0304 00 

0305 535452 
0308 494E47 
030B 205445 
030E 4D5053 

0311 00 

0312 535542 
0315 534352 
0318 495054 
0318 00 

031C 53594E 
031F 544158 

0322 00 

0323 545950 
0326 4500 

0328 554E44 

032B 464E44 

032E 204655 

0331 4E4354 

0334 494F4E 

0337 00 

0338 554E44 
033B 464E44 
033E 204C49 
0341 4E4500 

0344 554E44 

0347 464E44 

034A 205641 

034D 524941 

0350 424C45 

0353 00 

0354 46696C 
0357 65206E 
035A 6F7420 
035D 536176 
0360 656400 



DB 



ERRNOS: 
DB 



ERRNST: 
DB 



ERRNBS: 

DB 



ERRNSN: 
DB 



ERRNTM: 

DB 

ERRNUF: 
DB 



ERRNUS: 

DB 



ERRNUV: 
DB 



ERRNFI: 
DB 



"RETN W/0 GOSUB",0 



"STRING SPACE" ,0 



"STRING TEMPS", 



"SUBSCRIPT". 



"SYNTAX", 



TYPE",0 



;RETURN WITHOUT GOSUB 



;0UT OF STRING SPACE 



;STRING TEMPORARIES 



;BAD SUBSCRIPT 



;SYNTAX ERROR 



;TYPE MISMATCH 



"UNDFND FUNCTION", ;UNDEFINED FUNCTION 



"UNDFND LINE",0 



;UNDEFINED STATEMENT 



•UNDFND VARIABLE", ;UNDEFINED VARIABLE 



"File not Saved", ;unknown file name 
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INTERPRETER VARIABLES 



VARIABLES MARKED WITH SAME CHARACTER IN COLUMN 71 
ARE FIXED IN THAT ORDER. 



0363 


01 


p3010: 


db 


1 


0364 


00 


REAINPFL 


DB 





0365 


00 


PRINTFLG 


DB 





0366 


01 


TRACEFL6 


DB 


1 


0367 


00 


SCANPFLG 


DB 





0368 


01 


SCANPFLE 


DB 


1 


0369 


OOAB 


SCANPFLD 


EQU 


KEYS-'( ;NO ARRA\ 


0369 


00 


MATSCCNT 


DB 





036A 


00 


MATDMFLG 


DB 





036B 


00 


TYPEFLG: 


DB 





036C 


0002 


TYPEINTG 


EQU 


2 


036C 


0003 


TYPESTRG 


EQU 


3 


036C 


0004 


TYPESING 


EQU 


4 


036C 


0008 


TYPEDUBL 


EQU 


8 


036C 


0020 


TYPEDEF 


EQU 


080H/4 


036C 


00 


STRGTMPL 


DB 





036D 


0000 


STRGTMPA 


DW 





036F 


0000 


SCANPTR1 


DW 





0371 


0000 


SCANPTR2 


DW 





0373 


FFFF 


CURLINE: 


DW 


-1 


0375 


0000 


CURLINES 


DW 





0377 


0000 


PROGCNTR 


DW 


ENDINTRP+12 


0379 


0377 


VARINDEX 


EQU 


PROGCNTR 


0379 


0000 


PROGCNTS 


DW 





037B 


0000 


CURLDATA 


DW 





037D 


0000 


CURDATAP 


DW 


ENDINTRP 


037F 


0000 


INPTBUFR 


DW 


INITSTSP 


0381 


0064 


PREDREL 


EQU 


064H 


0381 


0070 


PREDNUM 


EQU 


070H 


0381 


005A 


PREDNOT 


EQU 


05AH 


0381 


007D 


PREDUMIN 


EQU 


07DH 


0381 


009D 


LINESYZE 


EQU 


79+78 


0381 


OOOE 


ITEMSIZE 


EQU 


14 



to print on 3010 
READ/INPUT FLAG 
PRINT/NO PRINT FLAG 
TRACE/NO TRACE FLAG 
SCAN/NOSCAN PARENTHESIS FLAG 
ARRAY NAME FOR ERASE 

ELEMENTS WANTED 
SUBSCRIPT COUNT 
SCANNING FOR VAR/DIMENSION V 
TYPE FLAG V 

TYPE OF INTEGER 
TYPE OF STRING 

TYPE OF SINGLE FLOATING POINT 
TYPE OF DOUBLE FLOATING POINT 
MARKING BIT FOR USER-FUNCTION 



TEMP STRING DESCRPTR, LEN S 
TEMP STRING DESCRPTR, ADDR S 
SCAN POINTER 
SCAN POINTER 
CURRENT LINE NUMBER 
SAVED CURRENT LINE NUMBER 
CURRENT PROGRAM LOCATION 
INDEX VARIABLE OF FOR 
SAVED CURRENT PROGRAMLOCATION 
CURRENT DATA LINE NUMBER 
CURRENT DATA POINTER 
INPUT BUFFER ADDRESS 
PRECEDENCE OF RELATION 
LOWER BNDRY OF NUM OP PREC. 
PRECEDENCE OF NOT OPERATOR 
PRECEDENCE OF UNARY MINUS 
DEFAULT LINESYZE 
DEFAULT WIDTH OF PRINT ITEM 
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MEMORY ALLOCATION POINTERS 



0381 8000 
0381 AFOO 



LIMLOWER 
LIMUPPER 



EQU 
EQU 



08000H 
0AF00H 



MEMORY LAYOUT 



ENCODE BUFFER 

PROGRAM 

VARIABLES 

ARRAYS 

FREE SPACE / STACK (INCLUDING BUFFERS) 

FREE STRING SPACE 

STRINGS 

STRING TEMPORARIES 

FREE STRING TEMPORARIES 



0381 


0000 


PROGBA. 


5E 


DW 


ENDINTRP+13 


BASE OF PROGRAM SPACE 




0383 


0000 


VARTABLE 


DW 


ENDINTRP+15 


BASE OF VARIABLE TABLE 




0385 


0000 


MATTABLE 


DW 


ENDINTRP+15 


BASE OF ARRAY TABLE 




0387 


0000 


FREELIMT 


DW 


ENDINTRP+15 


LOWER LIMIT OF FREE SPACE 


0389 


0000 


STCKBASE 


DW 


INITSTCK 




BASE OF STACK 




038B 


0000 


STRGFREE 


DW 


INITSTCK+10 


FIRST FREE STRING SPACE 




038D 


0000 


STRGBASE 


DW 


INITSTCK+10 


BASE OF STRING SPACE 




038F 


0000 


STRGTMPP 


DW 


INITSTCK+11 


STRING TEMPORARY ALLOC 


PTR 


0391 


0000 


STRGTLIM 


DW 


INITSTCK+10+2*3 


STRING TEMPORARY LIMIT 




0393 


0000 


ACCUMLTR 


DB 


0,0 


ACCUMULATOR 


A 


0395 


00 


FLACCMSB 


DB 





SIGN-BIT/HIGH-ORDER MANTISSA 


A 


0396 


00 


FLACCEXP 


DB 





EXPONENT 


A 


0397 


00 


FLACCSSV 


DB 





SAVED SIGN 


A 


0398 


01 


NULLCNT: 


DB 


1 


# OF NULLS TO INSERT AFTER (CR) 




0399 


01 


CURSPOS: 


DB 


1 


CHARACTER CURSOR POSITION 


C 


039A 


63 


CURSLIM: 


DB 


-LINESYZl 


;OUTPUT CURSOR LIMIT 


C 


039B 


00 


FLSCRO: 


DB 





FLOATING POINT SCRATCH AREA 




039C 


01 


FLSCR1 




DB 


1 






039D 


02 


FLSCR2 




DB 


2 






039E 


03 


FLSCR3 




DB 


3 






039F 


039B 


INOTINS 


EQU 


FLSCRO 


INPUT/OUTPUT INSTRUCTIONS 




039F 


OODB 


OPCINP 


EQU 


ODBH 


INPUT INSTRUCTION 




039F 


00D3 


OPCOUT 


EQU 


0D3H 


OUTPUT INSTRUCTION 




039F 


0OC9 


OPCRET 




EQU 


0C9H 


RETURN INSTRUCTION 





039F 52C74F RNDFCTSD: 
03A2 80 



DB 



052h, 0c7h, 04fh, 080h ;RANDOM SEED 
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GENERAL USE SUBROUTINES 



SCAN ONE CHARACTER AND CLASSIFY 







SCANNXTV: 




03A3 


7E 


MOV 


A,M 


03A4 


E3 


XTHL 




03A5 


BE 


CMP 


M 


03A6 


23 


INX 


H 


03A7 


E3 


XTHL 




03A8 


C20000 


JNZ 
SCANNXT: 


ERRASN 


03AB 


23 


INX 


H 


03AC 


7E 


MOV 


A,M 


03AD 


FE3A 


CPI 


«... 


03AF 


DO 


RNC 




03B0 


FE20 


CPI 


i. .. 


03B2 


CAAB03 


JZ 


SCANNXT 


03B5 


FE30 


CPI 


"0" 


03B7 


3F 


CMC 




03B8 


3C 


INR 


A 


03B9 


3D 


DCR 


A 


03BA 


C9 


RET 





;SCAN CURRENT BYTE, 
;VERIFY MATCH. 

; SQUAWK ABOUT SYNTAX ERROR 

;SCAN FOR NEXT NON-BLANK. CHAR 
;C=NUMERIC CHARACTER 
;Z=END OF STATEMENT 
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TEST FOR ALPHABET 


IC CHARACTER 




ALPHACHK: 




03BB 


7E 


MOV 


A,M ;TEST FOR ALPHABETIC CHARACTER 




ALPHACHA: 




03BC 


FE7B 


CPI 


"2+1 ; LOWER CASE 


03BE 


DO 


RNC 




03BF 


FE61 


CPI 


"a" ; LOWER CASE 


03C1 


020000 


JNC 


ALPHACHL 


03C4 


FE5B 


CPI 


'Z+l ;C-ALPHABETIC 


03C6 


DO 


RNC 




03C7 


FE41 


CPI 


"A" ; UPPER CASE 


03C9 


3F 


CMC 




03CA 


C9 


RET 






ALPHACHL: 




03CB 


C6E0 


AD I 


'A-' a ;CONVERT LOWER TO UPPER 


03CD 


C9 


RET 








MATCH 


CHARACTER OF BUFFER AGAINST CHARACTER IN 




( 


:harmtch: 




03CE 


AE 


XRA 


M 


MAKE MATCH TEST 


03CF 


C8 


RZ 




Z=SUCCESS] 


03DO 


FE20 


CPI 


'a-'A 


LOWER CASE - UPPER CASE 


03D2 


CO 


RNZ 




NOT LOWER-UPPER DIFFERENCE 


03D3 


CDBB03 


CALL 


ALPHACHK ; ALPHABETIC? 


03D6 


9F 


SBB 


A 


03D7 


3C 


INR 


A ;Z-C,S=0 


03D8 


C9 


RET 







CHECK TYPE OF EXPRESSION 

RETURNS: S => INTEGER 
Z »> STRING 
PO => SINGLE 
NC -> DOUBLE 



03D9 3A6B03 

03DC FE05 

03DE 3D 

03DF 3D 

03E0 3D 

03E1 B7 

03E2 37 

03E3 C9 



TYPECHK: 
LDA 

TYPECHKA: 
CPI 
DCR 
DCR 
DCR 
ORA 
STC 
RET 



TYPEFLG 

TYPESING+1 

A 

A 

A 

A 



LEN CHAR 

2 % 

3 $ 

4 8 
8 # 
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SCAN A 


PAIR OF LINE NUMBER PARAMETERS 




SCANLPRZ: 




03E4 


010000 


LXI 


B,0 jDEFAULT SECOND IS FIRST 




SCANLPRM: 




03E7 


C40000 


CNZ 


SCANLINN ;DEFAULT FIRST IS IN DE 


03EA 


F5 


PUSH 


PSW 


03EB 


78 


MOV 


A,B 


03EC 


Bl 


ORA 


C ;ZERO DEFAULT IS FIRST PARAMETER 


03ED 


C20000 


JNZ 


SCANLPR1 


03F0 


42 


MOV 


B,D 


03F1 


4B 


MOV 


CE 




SCANLPR1: 




03F2 


Fl 


POP 


PSW 


03F3 


EB 


XCHG 




03F4 


E3 


XTHL 


:PUT FIRST ONTO STACK 


03F5 


E5 


PUSH 


H 


03F6 


EB 


XCHG 




03F7 


50 


MOV 


D,B 


03F8 


59 


MOV 


E,C 


03F9 


C8 


RZ 




03FA 


FEAD 


CPI 


KEYDIV SEPARATOR MUST BE "/", 


03FC 


CA0000 


JZ 


SCANLPR2 


03FF 


CDA303 


CALL 


SCANNXTV ;bscan (val) 


0402 


2C 


DB 


; OR "," 


0403 


2B 


DCX 


H 




SCANLPR2: 




0404 


11FFFF 


LXI 


D.OFFFFH ;EMPTY SECOND OPERAND = 


0407 


CDAB03 


CALL 


SCANNXT ;bscan , 


040A 


C8 


RZ 








SCAN A 


LINE NUMBER 




< 


5CANLINN: 




040B 


2B 


DCX 
5CANLINR: 


H ;SCAN LINE » IN COMMAND/STATEMEN 


040C 


110000 

< 


LXI 
JCANLINL: 


D,0 ;DEFAULT LINE IS 0, INITIALIZE 


040F 


CDAB03 


CALL 


SCANNXT ;bscan , 


0412 


DO 


RNC 




0413 


E5 


PUSH 


H 


0414 


F5 


PUSH 


PSW 


0415 


219819 


LXI 


H.0FFFFH/1O-1 


0418 


CDOOOO 


CALL 


CMHLLTDE 


041B 


DAOOOO 


JC 


ERRASN 


041E 


62 


MOV 


H,D 


041F 


6B 


MOV 


L,E ;HL=10*DE 


0420 


19 


DAD 


D 


0421 


29 


DAD 


H 


0422 


19 


DAD 


D 


0423 


29 


DAD 


H 


0424 


Fl 


POP 


PSW 


0425 


D630 


SUI 


"0" ;GET VALUE OF NEXT DIGIT 
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MOV 


E,A 


0428 1600 


MVI 


D.000H 


042A 19 


DAD 


;ANO ADD IT ON 


042B EB 


XCHG 




042C El 


POP 


H 


042D C30F04 


JMP 


SCANLINL 
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; SEARCH 


FOR A GIVE 






LINESRCH: 




0430 


2A8103 


LHLO 
LINESRCL: 


PROGBASE 


0433 


E5 


PUSH 


H 


0434 


CD0000 


CALL 


LINELINK 


0437 


CAOOOO 


JZ 


POPHLRET 


043A 


C5 


PUSH 


B 


043B 


7E 


MOV 


A,M 


043C 


23 


INX 


H 


043D 


66 


MOV 


H,M 


043E 


6F 


MOV 


L,A 


043F 


CDOOOO 


CALL 


CMHLLTDE 


0442 


El 


POP 


H 


0443 


CI 


POP 


B 


0444 


3F 


CMC 




0445 


C8 


RZ 




0446 


D23304 


JNC 


LINESRCL 


0449 


60 


MOV 


H,B 


044A 


69 


MOV 


L.C 


044B 


3F 


CMC 




044C 


C9 


RET 








; LINK TO 


NEXT LINE 






L.INELINK: 




044D 


E5 


PUSH 


H 


044E 


4E 


MOV 


CM 


044F 


23 


INX 


H 


0450 


46 


MOV 


B.M 


0451 


23 


INX 


H 


0452 


E3 


XTHL 




0453 


09 


DAD 


B 


0454 


E3 


XTHL 




0455 


78 


MOV 


A,B 


0456 


Bl 


ORA 


C 


0457 


CI 


POP 


B 


0458 


C9 


RET 





;LOOK FOR LINE NUMBER IN DE 

;C-LINE FOUNO 

;BC=LINE LOCATION, IF FOUND 
;«NEXT LINE, IF NOT FOUND 
;ADDRESS OF NEXT LINE 
;GET NUMBER OF CURRENT LINE 

;(from HL.MA) 
;HL-NEXT LINE 



FIND ADDRESS OF NEXT LINE 
Z-END OF PROGRAM 



;ADD LENGTH TO ADDRESS 
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INSERT/REPLACE LINE OF PROGRAM 



0459 
045A 
045D 
0460 
0461 
0462 
0463 
0464 
0465 
0468 
0469 
046C 
046D 
046E 
0471 
0474 
0475 
0476 
0477 
0478 
047B 
047C 
047D 
047E 
047F 
0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 



D5 

D40000 

CDAB03 

Dl 

E5 

D5 

C5 

F5 

CD3004 

C5 

DCO00O 

Dl 

Fl 

CAOOOO 

2A8703 

E3 

CI 

E5 

09 

CDOOOO 

EB 

CI 

71 

23 

70 

23 

Dl 

73 

23 

72 

23 

EB 

El 



0488 7E 

0489 12 
048A 23 
048B 13 
048C B7 
048D C28804 

0490 C30000 



I ME INS: 
PUSH 
CNC 
CALL 
POP 
PUSH 
PUSH 
PUSH 
PUSH 
CALL 
PUSH 
CC 
POP 
POP 
JZ 

LHLD 
XTHL 
POP 
PUSH 
DAD 
CALL 
XCH6 
POP 
MOV 
INX 
MOV 
INX 
POP 
MOV 
INX 
MOV 
INX 
XCHG 
POP 
LINEINSL: 
MOV 
STAX 
INX 
INX 
ORA 
JNZ 
JMP 



D 

KEYSCAN 

SCANNXT 

D 

H 

D 

B 

PSW 

LINESRCH 

B 

LINEDEL 

D 

PSW 

POPHL3RT 

FREELIMT 

B 
H 
B 
COPYCHK 

B 

M.C 

H 

M,B 

H 

D 

M,E 

H 

M,D 

H 

H 

A,M 

D 

H 

D 

A 

LINEINSL 

LINEDELU 



;DE-LINE NUMBER 

;C=ALREADY KEY-SCANNED 

;bscan , ;NC-MUST BE KEY-SCANNED 

;HL»TEXT TO INSERT 

;BC-LENGTH OF TEXT 
;Z=DELETE, NO REPLACE 

;LOOK FOR LINE 
;SAVE LOCATION 
;DELETE IF PRESENT 



;EXIT IF NOTHING MORE 
;PULL APART FOR NEW LINE 



;BEGINNING OF NEW LINE 

; INSERT LINE NUMBER 

;RECOVER TEXT POINTER 
;INSERT TEXT OF NEW LINE 
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DELETE 


TEXT FROM PROGRAM 




LINEDEL: 




0493 


EB 


XCHG 


;BC=BEGINNING OF TEXT TO REMOVE 


0494 


79 


MOV 


A.C 


0495 


93 


SUB 


E -.COMPUTE NEGATIVE OF 


0496 


6F 


MOV 


L,A ;NUM8ER OF BYTES DELETED 


0497 


78 


MOV 


A.B 


0498 


9A 


SBB 


D 


0499 


67 


MOV 


H.A 


049A 


E5 


PUSH 


H 


049B 


2A8703 


LHLD 


FREELIMT ;HL=BEGINNING OF TEXT S 




LINEDELL: 




049E 


1A 


LDAX 


D 


049F 


02 


STAX 


B 


04A0 


03 


INX 


B 


04A1 


13 


INX 


D 


04A2 


CD0000 


CALL 


CMHLLTDE 


04A5 


D29E04 


JNC 


LINEDELL 


04A8 


CI 


POP 


B 




LINEDELU: 




04A9 


2A8703 


LHLD 


FREELIMT ;UPDATE DATA POINTERS 


04AC 


09 


DAD 


B ;BC»INCREMENT 


04AD 


228703 


SHLD 


FREELIMT 


04BO 


2A8603 


LHLD 


MATTABLE 


04B3 


09 


DAD 


B 


04B4 


228503 


SHLD 


MATTABLE 


04B7 


2A8303 


LHLD 


VARTABLE 


04BA 


09 


DAD 


B 


04BB 


228303 


SHLD 


VARTABLE 


04BE 


C30000 


JMP 


CLEARPCN 






MAKE SIXTEEN BIT COMPARISON 




( 


:MHLLTDE: 




04C1 


7C 


MOV 


A,H ; COMPARE DE VS HL 


04C2 


92 


SUB 


D ;C=HL<DE 


04C3 


CO 


RNZ 




04C4 


7D 


MOV 


A.L 


04C5 


93 


SUB 


E 


04C6 


C9 


RET 
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MOVE LONG TO HIGHER ADDRESS 




COPYCHK: 




04C7 


CDOOOO 


CALL 


SPACECHK 




COPYTEXT: 




04CA 


C5 


PUSH 


B ;COPY SECTION DE-BC TO AREA 


04CB 


E3 


XTHL 


;ENDING AT HL 


04CC 


CI 


POP 


B 




COPYTXTL: 




04CD 


CDC104 


CALL 


CMHLLTDE 


04D0 


7E 


MOV 


A,M 


0401 


02 


STAX 


B 


04D2 


C8 


RZ 




04D3 


OB 


DCX 


B 


04D4 


2B 


DCX 


H 


04D5 


C3CD04 


JMP 


COPYTXTL 






CHECK 


SPACE FOR STACK ALLOCATION 




< 


SPACESTK: 




04D8 


E5 


PUSH 


H ;VERIFY STACK HAS ROOM ENOUGH 


04D9 


2A8703 


LHLD 


FREELIMT ;C-NUMBER OF WORDS NEEDED 


04DC 


0600 


MVI 


B.000H 


04DE 


09 


DAD 


B 


04DF 


09 


DAD 


B 


04E0 


CDOOOO 


CALL 


SPACECHK 


04E3 


El 


POP 


H 


04E4 


C9 


RET 








CHECK 


SPACE FOR PROGRAM OR VARIABLE ALLOCATION 




< 


5PACECHK: 




04E5 


D5 


PUSH 


D ;CHECK THAT ENOUGH SPACE IS LEFT 


04E6 


EB 


XCHG 


;ON STACK ABOVE HL 


04E7 


21DAFF 


LXI 


H.-38 


04EA 


39 


DAD 


SP 


04EB 


CDC104 


CALL 


CMHLLTDE 


04EE 


EB 


XCHG 




04EF 


Dl 


POP 


D 


04F0 


DO 

1 


RNC 
•RRAOM: 




04F1 


1E47 


MVI 


E.ERRNOM-ERRN 


04F3 


C30000 


JMP 


ERRMSG 
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; RE-INITIALIZATION 


ROUTINES 






NEWSTM: 










04F6 


CO 


RNZ 


; 


NEW 


COMMAND 






CLEARPGM: 










04F7 


2A8103 


LHLD 


PROGBASE 






;CLEAR PROGRAM 


04FA 


AF 


XRA 


A 








04FB 


77 


MOV 


M.A 








04FC 


23 


INX 


H 








04FD 


77 


MOV 


M,A 








04FE 


23 


INX 
NEWLOAD: 


H 








04FF 


228303 


SHLO 
CLEARSET: 


VARTABLE 








0502 


CDOOOO 


CALL 
CLEARVST: 


CLEARPCN 






;CLEAR PROGRAM POINTERS 


0505 


227703 


SHLD 


PROGCNTR 






;UPDATE PROGRAM COUNTER 


0508 


CDOOOO 


CALL 
CLEARSTK: 


CLEARVAR 






;CLEAR VARIABLES 


050B 


CI 


POP 


B ; 


RESET 


STACK, 


050C 


2A8903 


LHLD 


STCKBASE 








050F 


F9 


SPHL 










0510 


2160FF 


LXI 


H.O-LINESYZE- 


•3 




0513 


39 


DAD 


SP 








0514 


F9 


SPHL 




CREATF 


INPUT BUFFER 


0515 


227F03 


SHLD 


INPTBUFR 








0518 


2A8D03 


LHLD 


STRGBASE 






;CLEAR STRING TEMPORARIES, 


051B 


23 


INX 


H 








051C 


228F03 


SHLD 


STRGTMPP 








051F 


210000 


LXI 


H.O 








0522 


E5 


PUSH 


H 








0523 


227903 


SHLD 


PROGCNTS 






;SET NO CONTINUE 


0526 


2A7703 


LHLD 


PROGCNTR 








0529 


C5 


PUSH 


B 








052A 


C9 


RET 
CLEARVAR: 










052B 


2A8303 


LHLD 


VARTABLE 






;CLEAR ALL VARIABLES 


052E 


228503 


SHLD 


MATTABLE 








0531 


228703 


SHLD 


FREELIMT 








0534 


2A8D03 


LHLD 


STRGBASE 








0537 


228B03 


SHLD 


STRGFREE 








053A 


C9 


RET 
CLEARPCN: 










053B 


210000 


LXI 


H,0 


CLEAR 


PROGRAM POINTERS 


053E 


227903 


SHLD 


PROGCNTS 








0541 


2A8103 


LHLD 


PROGBASE 








0544 


2B 


DCX 


H 








0545 


3600 


MVI 


M,0 


END 


OF 


LINE -1 


0547 


227703 


SHLD 


PROGCNTR 








054A 


AF 


XRA 


A 
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RESTORE: REWIND DATA STATEMENTS 



054B CA0000 

054E CDOB04 

0551 E5 

0552 CD3004 
0555 D20000 

0558 El 

0559 EB 
055A C30000 

055D EB 
055E 2A8103 

0561 28 

0562 227D03 

0565 EB 

0566 C9 



RESSTM: 
JZ 

CALL 
PUSH 
CALL 
JNC 
POP 
XCHG 
JMP 

RESSTMDF: 
XCHG 
LHLD 

RESSTMBU: 
OCX 

RESDTPTR: 
SHLD 
XCHG 
RET 



[RESTORE STATEMENT 



RESSTMDF 

SCANLINN 

H 

LINESRCH 

ERRAUS 

H 

RESSTMBU 



;DEFAULT IS RESTORE TO BEGINNING 
PROGBASE 

H ;BACK UP BEFORE LINE 

CURDATAP ;SET DATA POINTER 



CLEAR: CLEAR VARIABLES, REALLOCATE STRING SPACE 



0567 
056A 
056D 
056E 
0571 
0572 
0573 
0576 
0577 
0578 
0579 
057A 
057B 
057C 
057F 
0582 
0585 
0586 
0589 
058C 
058D 
0590 
0591 



CA0505 

CD0000 

2B 

CDAB03 

CO 

E5 

2A8D03 

7D 

93 

5F 

7C 

9A 

57 

DAOOOO 

2A8303 

012800 

09 

CDC104 

D2F104 

EB 

228903 

El 

C30505 



CLRSTM: 
JZ 

CALL 
DCX 
CALL 
RNZ 
PUSH 
LHLD 
MOV 
SUB 
MOV 
MOV 
SBB 
MOV 
JC 

LHLD 
LXI 
DAD 
CALL 
JNC 
XCHG 
SHLD 
POP 
JMP 



CLEARVST 

VALINTDE 

H ;bscan - 

SCANNXT ;bscan , 

H 

STRGBASE 

A.L 

E 

E.A 

A,H 

D 

D,A 

ERRASN 

VARTABLE 

B.40 

B 

CMHLLTDE 

ERRAOM 

STCKBASE 

H 

CLEARVST 



;CLEAR STATEMENT 
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; LOW-LEVEL CHARACTER I/O ROUTINES 






PRNTCHRI: 




0594 


E3 


XTHL 




0595 


7E 


MOV 


A,M 


0596 


23 


INX 


H 


0597 


E3 


XTHL 
PRNTCHRA: 




0598 


F5 


PUSH 


PSW ;TRANSMIT CHARACTER 


0599 


3A6503 


LDA 


PRINTFLG 


059C 


B7 


ORA 


A 


059D 


C20000 


JNZ 


POPAFRET 


05A0 


Fl 


POP 


PSW 


05A1 


F5 


PUSH 


PSW 


05A2 


FE20 


CPI 


l» II 


05A4 


DA0OO0 


JC 


PRNTCHRW 


05A7 


E5 


PUSH 


H 


05A8 


2A9903 


LHLD 


CURSPOS ;LINE TOO LONG? 


05AB 


7C 


MOV 


A.H 


05AC 


85 


ADD 


L 


05AD 


7D 


MOV 


A.L 


05AE 


El 


POP 


H 


05AF 


DCOOOO 


CC 


PRNTCRLF 


05B2 


3C 


INR 


A 


05B3 


329903 


STA 
PRNTCHRW: 


CURSPOS 


05B6 


Fl 


POP 


PSW ;SEND CHARACTER 


05B7 


CD2A00 


CALL 


SYSOISPL 


05BA 


C9 


RET 
INPTCHAR: 




05BB 


CD0600 


CALL 


SYSKEYIN ;RECEIVE A CHARACTER 


05BE 


CABB05 


JZ 


INPTCHAR ;WAIT FOR ONE 


05C1 


FEOF 


CPI 


SI 


05C3 


CO 


RNZ 




05C4 


3A6503 


LDA 


PRINTFLG 


05C7 


2F 


CMA 




05C8 


326503 


STA 


PRINTFLG 


05CB 


C3BB05 


JMP 


INPTCHAR 
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; ERROR 


PROCESSING 






MSGERROR: 




05CE 


204552 


DB 


" ERROR", 


05D1 


524F52 






05D4 


00 


MSGIN: 




05D5 


20494E 


DB 


" IN \0 


0508 


2000 


MSGOK: 




05DA 


0O0A4F 


DB 


CR,LF,"OK",CR,LF,0 


05DD 


4B0D0A 






05E0 


00 


MSGBREAK: 




05E1 


0D0A42 


DB 


CR.LF, "BREAK", 


05E4 


524541 






05E7 


4B00 


ERRDATA: 




05E9 


2A7B03 


LHLD 


CURLDATA 


05EC 


227303 


SHLD 
ERRASN: 


CURLINE 


05EF 


1EA9 


MVI 
ERRMSG: 


E.ERRNSN-ERRN 


05F1 


CD0B05 


CALL 


CLEARSTK 


05F4 


AF 


XRA 


A 


05F5 


326503 


STA 


PRINTFLG ;TURN ON PRINTING 


05F8 


326703 


STA 


SCANPFLG ;ALLOW SUBSCRIPTING 


05FB 


CDOOOO 


CALL 


PRNTCRLF 


05FE 


217302 


LXI 


H.ERRN 


0601 


57 


MOV 


D.A 


0602 


CD9405 


CALL 


PRNTCHRI ;print (val) 


0605 


3F 


DB 


"?" 


0606 


19 


DAD 


D ;PRINT ERROR CODE 


0607 


CDOOOO 


CALL 


PRNTMSG 


060A 


21CE05 


LXI 
ERRMSGPR: 


H, MSGERROR 


060D 


CDOOOO 


CALL 


PRNTMSG 


0610 


2A7303 


LHLD 


CURLINE 


0613 


7C 


MOV 


A.H 


0614 


A5 


ANA 


L 


0615 


3C 


INR 


A 


0616 


C40000 


CNZ 


ERRMSGIN 



basic. LST 



5-Sep-78 14:14:39 



Page 29 



COMMAND/LINE INPUT 



0619 
061A 
061D 
0620 
0623 
0626 
0629 

062C 
062F 
0632 
0635 
0638 
0639 
063C 
063D 
0640 
0641 
0642 
0645 
0648 



AF 

326503 

326703 

21FFFF 

227303 

21DA05 

CDOOOO 

110000 

CDOOOO 

DA2C06 

COAB03 

F5 

CD0B04 

D5 

CDOOOO 

Dl 

Fl 

D20000 

CD5904 

C32C06 



CMNDSTRT: 
XRA 
STA 
STA 
LXI 
SHLD 
LXI 
CALL 

CMNDINPT: 
LXI 
CALL 
JC 

CALL 
PUSH 
CALL 
PUSH 
CALL 
POP 
POP 
JNC 
CALL 
JMP 



;TOP LEVEL EXECUTIVE 



;TURN ON PRINTING 
;ALLOW SUBSCRIPTING 



PRINTFLG 

SCANPFLG 

H.-l 

CURLINE 

H.MSGOK 

PRNTMSG ; REQUEST COMMAND 

D.MSGSTARS+2 ; INPUT COMMAND 

INPTRQST 

CMNDINPT 

SCANNXT ;bscan , 

PSW 

SCANLINN 

D 

KEYSCAN ;SCAN STATEMENT 

D 

PSW 

EXECUTE ;DIRECT IF NO LINE NUMBER 

LINEINS ; INSERT LINE AS REQUESTED 

CMNDINPT 



;SCAN OFF LINE NUMBER 



CMNDRSTR: 
064B CD0B05 CALL 
064E CDOOOO CALL 
0651 210000 LXI 
0654 C30D06 JMP 



CLEARSTK 
PRNTCRLF 
H,MSGRED0+11 
ERRMSGPR 



;ENTRY FOR RESTARTING 
;TELL HIM WE"RE STARTING 
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0657 05 

0658 CD5904 
065B El 
065C Dl 
065D 19 
065E DA0000 
0661 C30000 



AUTOMATIC LINE-NUMBERED INPUT 



AUTSTMIN: 
PUSH 
CALL 
POP 
POP 
DAD 
JC 
JMP 



D 

LINEINS 

H 

D 

D 

ERRAOV 

AUTSTMN 



SAVE LINE NUMBER 
INSERT LINE 
RECOVER LINE NUMBER, 
INCREMENT 



0664 CI 



0665 
0668 
066B 
066E 
0671 
0672 

0675 
0676 
0677 
067A 
067B 
067C 
067F 
0680 
0683 
0686 
0689 

068A 
068B 
068E 



11E803 

016400 

CDE703 

C2EF05 

El 

CDOOOO 

D5 

E5 

CDOOOO 

EB 

13 

CDOOOO 

Dl 

DAOOOO 

CDAB03 

D25706 

3F 

Dl 

DA1906 

C36506 



AUTSTM: 
POP 

AUTSTMS: 
LXI 
LXI 
CALL 
JNZ 
POP 
CALL 

AUTSTMN: 
PUSH 
PUSH 
CALL 
XCHG 
INX 
CALL 
POP 

jc 

CALL 
JNC 
CMC 
AUTSTMBR: 
POP 
JC 
JMP 



; REMOVE CALLER 

;DEFAULT STARTING LINE NUMBER 
:DEFAULT INCREMENT VALUE 
;SCAN PARAMETERS 



B 

D.1000 ; 

B.100 

SCANLPRM 

ERRASN 

H 

PRNTCRLF 



D ;SAVE INCREMENT 

H ;AND NEXT LINE NUMBER 

ENCODEHL ; PROMPT WITH LINE NUMBER 

D 

INPTRQST 

D 

AUTSTMBR 

SCANNXT ;bscan , 

AUTSTMIN 



D ;TAKE A BREAK 

CMNDSTRT ;END OF AUTO 

AUTSTMS ;GET NEW LINE NUMBER, INCREMENT 
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; LEXICAL 


SCANNER / 


KEYWORD RECOGNITION 






KEYSCAN: 






0691 


0E05 


MVI 


C,5 


,SCAN INPUT LINE FOR KEYWORDS, 


0693 


54 


MOV 


D,H 


CONDENSE LINE ON TOP OF SELF 


0694 


5D 


MOV 


E,L 




0695 


ZB 


DCX 


H 


.bscan - 


0696 


E5 


PUSH 


H 




0697 


CDAB03 


CALL 
KEYSCANL: 


SCANNXT 


bscan + 


069A 


7E 


MOV 


A.M 




069B 


FEZO 


CPI 


II It 




069D 


CAOOOO 


JZ 


KEYSCANH 


iDELETE BLANKS 


06A0 


47 


MOV 


B,A 




06A1 


FE22 


CPI 


1 M 




06A3 


CAOOOO 


JZ 


KEYSCANI 


•SWALLOW WHOLE STRING 


06A6 


B7 


ORA 


A 




06A7 


CAOOOO 


JZ 


KEYSCANX 




06AA 


FE30 


CPI 


"0" 


NON-KEYWORD 


06AC 


DAOOOO 


JC 


KEYSCANK 




06AF 


FE3C 


CPI 


» / II 


SO WE DON"T SCAN 


06B1 


DAOOOO 


JC 
KEYSCANK: 


KEYSCANP 




06B4 


C5 


PUSH 


B 


SCAN FOR MATCHING KEYWORD 


06B5 


05 


PUSH 


D 




06B6 


E5 


PUSH 


H 




06B7 


E60F 


AN I 


OOFH 


HASH CHARACTER 


06B9 


5F 


MOV 


E.A 




06BA 


1600 


MVI 


D,0 




06BC 


Z1E400 


LXI 


H.KEYWADDS ;ADDRESS C'SPONDING KE 


06BF 


19 


DAD 


D 




06C0 


19 


DAD 


D 




06C1 


5E 


MOV 


E.M 




06C2 


23 


INX 


H 




06C3 


56 


MOV 


D,M 




06C4 


EB 


XCHG 






06C5 


C30000 


JMP 
KEYSCANZ: 


KEYSCANB 




06C8 


1A 


LDAX 


D 




06C9 


B7 


ORA 


A 




06CA 


F20000 


JP 
KEYSCANM: 


KEYSCANN 




06CD 


78 


MOV 


A,B 


MATCH, GET SYMBOL NUMBER 


06CE 


F680 


OR I 


080H 




06D0 


C30000 


JMP 
KEYSCANN: 


KEYSCANF 




06D3 


23 


INX 


H 


ADDRESS NEXT CHAR IN LINE 


06D4 


13 


INX 


D 




06D5 


OC 


INR 
KEYSCANC: 


C 




06D6 


1A 


LDAX 


D 


COMPARE LINE WITH KEYWORD 


06D7 


E67F 


ANI 


07FH 




06D9 


CDCE03 


CALL 


CHARMTCH 


;COMPARE CHARACTERS 
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06DC CAC806 


JZ 


KEYSCANZ 


06DF 79 


MOV 


A,C ;MATCH ENOUGH YET? 


06E0 FE03 


CPI 


3 


06E2 DAOOOO 


JC 


KEYSCANA 


06E5 CDBB03 


CALL 


ALPHACHK ;STOP ON BREAK CHAR OK 


06E8 2B 


DCX 


H 


06E9 D2CD06 


JNC 
KEYSCANA: 


KEYSCANM 


06EC EB 


XCHG 
KEYSCANW: 




06ED B6 


ORA 


M ;SKIP OVER REST OF KEYWORD 


06EE 23 


INX 


H 


06EF F2ED06 


JP 


KEYSCANW 


06F2 A8 


XRA 
KEYSCANB: 


B 


06F3 46 


MOV 


B,M ;GET CODE FOR KEYWORD 


06F4 23 


INX 


H 


06F5 EB 


XCHG 




06F6 El 


POP 


H ;RESTORE STARTING POSITION 


06F7 E5 


PUSH 


H 


06F8 OEOO 


MVI 


C.O 


06FA F2D606 


JP 


KEYSCANC 


06FD 7E 


MOV 
KEYSCANF: 


A.M ;N0 MATCH, GET CHARACTER 


06FE Dl 


POP 


D ; RECOVER OUTPUT POINTER 


06FF Dl 


POP 


D 


0700 CI 


POP 


B 


0701 063A 


MVI 


B,":" ;CHECK FOR SPECIAL PROCESSING 


0703 FE8C 


CPI 


KEYELS 


0705 C20000 


JNZ 


KEYSCAND 


0708 EB 


XCHG 




0709 70 


MOV 


M,B ;INSERT COLON BEFORE ELSE 


070A EB 


XCHG 




070B 13 


INX 


D 


070C OC 


INR 
KEYSCAND: 


C 


070D FE80 


CPI 


KEYDAT 


070F CAOOOO 


JZ 


KEYSCANI 


0712 0600 


MVI 


B.O 


0714 FE81 


CPI 


KEYREM 


0716 CAOOOO 


Jz 


keyscani 


0719 FE9C 


cpi 


keycld ;pass file name in load and save 


071B CAOOOO 


JZ 


keyscani 


071E FE9D 


CDl 
KEYSCANI: 


keycsv 


0720 CCOOOO 


CZ 


KEYSCANV 


0723 B7 


ORA 


A 


0724 CAOOOO 


JZ 
KEYSCANP: 


KEYSCANX 


0727 12 


STAX 


D ; INSERT SYMBOL IN MEMORY 


0728 13 


INX 


D 


0729 OC 


INR 
KEYSCANH: 


C 


072A 23 


INX 


H 


072B C39A06 


JMP 


KEYSCANL 
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072E El 

072F 12 

0730 13 

0731 12 

0732 13 

0733 12 

0734 47 

0735 C9 



KEYSCANX: 
POP 
STAX 
INX 
STAX 
INX 
STAX 
MOV 
RET 



H 
D 
D 
D 
D 
D 
B,A 



;EXIT KEYWORD TRANSLATION 
;END OF STATEMENT 

;END OF "PROGRAM" 



; LENGTH IN BC 



COPY BUFFER TEXT WITHOUT PROCESSING 



0736 
0737 
0738 
0739 
073A 
073B 
073C 
073D 
073E 
073F 
0741 
0744 
0745 
0746 
0749 
074A 
074B 
074C 
074D 
074E 



12 

OC 

13 

23 

7E 

B7 

C8 

B8 

C8 

FE22 

C23607 

C5 

47 

CO3607 

Fl 

47 

7E 

B7 

C8 

C33607 



KEYSCANV: 
STAX 
INR 
INX 
INX 
MOV 
ORA 
RZ 
CMP 
RZ 
CPI 
JNZ 
PUSH 
MOV 
CALL 
POP 
MOV 
MOV 
ORA 
RZ 
JMP 



D 

C 



H 

A,M 

A 

B 



iCOPY TEXT VERBATIM TO STOPPER 



iSTRING WITHIN TEXT? 



KEYSCANV 

B 

B,A 

KEYSCANV 

PSW 

B,A 

A,M 

A ; 

KEYSCANV 



STRING TERMINATE ON END OF LINE? 
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LINE INPUT ROUTINE 







INPTLNBS: 








0751 


2B 


OCX 


H 


DELETE ft CHARACTER FROM INPUT 


0752 


05 


OCR 


B 






0753 


CAOOOO 


JZ 


INPTLNRD 






0756 


CD9405 


CALL 


PRNTCHRI 




;print (val) 


0759 


5C 


DB 


'\ 






075A 


OC 


inr 


c 




;char count 


075B 


C30000 


JMP 
INPTLNRD: 


INPTLINL 






075E 


210000 


LXI 


H.MSGSTARS 


;BREAK ENTERED 


0761 


CDOOOO 


CALL 


PRNTMSG 


TELL 


HIM WE GOT IT 


0764 


05 


DCR 


B 


BREAK 


AT BEGINNING MEANS BREAK 


0765 


CAOOOO 


JZ 
INPTCRLF: 


INPTEXIT 






0768 


CDOOOO 


CALL 
INPTRQST: 


PRNTCRLF 




;0N THE NEXT LINE 


076B 


62 


MOV 


H,D 






076C 


6B 


MOV 


L.E 


PRINT 


USER"S PROMPT MESSAGE 


076D 


CDOOOO 


CALL 


PRNTMSG 






0770 


2A7F03 


LHLD 


INPTBUFR 




;INPUT A LINE FROM RECEIVER 


0773 


010001 


LXI 


B,l*256 






0776 


CD9405 


CALL 


PRNTCHRI 




;print (val) 


0779 


20 


DB 
INPTLINL: 


It 11 




;0K, WE"RE READY FOR INPUT 


077A 


3600 


MVI 


M,0 


MAINTAIN ENDING ZERO 


077C 


CDBB05 


CALL 
INPTLINC: 


INPTCHAR 






077F 


FE07 


CPI 


BEL 






0781 


CAOOOO 


JZ 


INPTLNST 




;BELL"S OK 


0784 


FEOD 


CPI 


CR 






0786 


CAOOOO 


JZ 


INPTCRTN 




;CARRIAGE RTN IS END OF LINE 


0789 


FE08 


CPI 


BS 






078B 


CA5107 


JZ 


INPTLNBS 




; BACKSPACE IS DELETE 


078E 


FE03 


CPI 


ETX 


CONTROL C IS ABORT 


0790 


CA5E07 


JZ 


INPTLNRD 




;F0RGET THIS LINE, START OVE 


0793 


FEOC 


CPI 


FF 


FORM 


FEEDS ARE ECHOED 


0795 


CAOOOO 


JZ 


INPTLNEC 






0798 


FE20 


CPI 


II II 






079A 


DA7A07 


JC 


INPTLINL 




; IGNORE OTHER CONTROL CHARS 
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INPTLNST: 




079D 


77 


MOV 


M,A 


079E 


78 


MOV 


A,B 


079F 


FE9D 


CPI 


LINESYZE 


07A1 


3E07 


MVI 


A, BEL 


07A3 


D20000 


JNC 


INPTLNEC 


07A6 


04 


INR 


B 


07A7 


Bl 


ORA 


C 


07A8 


4E 


MOV 


CM 


07A9 


23 


INX 


H 


07AA 


3E0A 


MVI 


A.LF 


07AC 


FC9805 


CM 


PRNTCHRA 


07AF 


79 


MOV 
INPTLNEC: 


A,C 


07BO 


CD9805 


CALL 


PRNTCHRA 


07B3 


C37A07 


JMP 
INPTCRTN: 


INPTLINL 


07B6 


05 


DCR 


B 


07B7 


CA6807 


JZ 
INPTEXIT: 


INPTCRLF 


07BA 


2A7F03 


LHLD 


INPTBUFR 


07BD 


2B 


DCX 


H 


07BE 


CD0OO0 


CALL 


PRNTCRLF 


07C1 


90 


SUB 


B 


07C2 


3F 


CMC 




07C3 


9F 


SBB 


A 


07C4 


C9 


RET 
MSGSTARS: 




07C5 


2A2A2A 


DB 


n • * * ii g 


07C8 


00 







iSTORE THE CHARACTER 



;ac -> screen ;ECHO CHARACTER 



;CARRIAGE RETURN AT BEGINNING 
iGETS ANOTHER TURN 



;SET CONDITION CODES 

;S=C=NZ - BREAK 
;NS=NC=Z = NON-EMPTY LINE 
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SET OPTIONS COMMAND 




SETSTM: 








07C9 CAEF05 


JZ 


ERRASN 


TURN 


OPTION ON OR OFF 


07CC FE99 


CPI 


KEYLIS 






07CE CAOOOO 


JZ 


SETSTMLS 






07D1 F5 


PUSH 


PSW 


SAVE 


OPTION 


07D2 CDAB03 


CALL 


SCANNXT 


bscar 


. 


07D5 CAEF05 


JZ 


ERRASN 






07D8 D691 


SUI 


KEYON 






07DA 47 


MOV 


B,A 


SAVE 


FLAG 


07DB CDAB03 


CALL 


SCANNXT 


bscar 


+ 


07DE Fl 


POP 


PSW 


WHICH 


OPTION 


07DF FE89 


CPI 


KEYGTO 






07E1 CAOOOO 


JZ 


SETSTMGT 




;GOTO 


07E4 FE96 


CPI 


KEYPRT 






07E6 CZEF05 


JNZ 


ERRASN 






SETSTMPR: 








07E9 78 


MOV 


A,B 






07EA 326303 


sta 


p3010 




;used to be printflg 


07ED C9 


RET 








SETSTMGT: 








07EE 78 


MOV 


A,B 






07EF 326603 


STA 


TRACEFLG 






07F2 C9 


RET 








SETSTMLS: 








07F3 23 


INX 


H 






07F4 CDOOOO 


CALL 


VALBYTE 






07F7 2F 


CMA 






;FIND NEGATIVE OF BY 


07F8 3C 


INR 


A 






07F9 329A03 


STA 


CURSLIM 






07FC C9 


RET 










DELETE 


COMMAND PROCESSOR 


[ 


)ELSTM: 








07FD 11FFFF 


LXI 


D.OFFFFH 




; DELETE COMMAND 


0800 CDE403 


CALL 


SCANLPRZ 






0803 E3 


XTHL 




SAVE 


SCAN POINTER 


0804 EB 


XCHG 








0805 CDC104 


CALL 


CMHLLTDE 




;VERIFY FIRSK-LAST 


0808 DAEF05 


JC 


ERRASN 






080B E6 


PUSH 


H 






080C CD3004 


CALL 


LINESRCH 




;LOOK FOR FIRST LINE 


080F Dl 


POP 


D 






0810 C6 


PUSH 


B 






0811 CD3004 


CALL 


LINESRCH 




;LOOK FOR LAST LINE 


0814 CI 


POP 


B 






0815 CD9304 


CALL 


LINEDEL 






0818 El 


POP 


H 






0819 C9 


RET 
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• LIST COMMAND PROC 






LISSTM: 




081A 


110000 


LXI 


D.O 


081O 


01FFFF 


LXI 


B.OFFFFH 


0820 


CAOOOO 


JZ 


LISSTMSC 


0823 


010000 


LXI 
LISSTMSC: 


B,0 


0826 


CDE703 


CALL 


SCANLPRM 


0829 


C2EF05 


JNZ 


ERRASN 


082C 


E3 


XTHL 




082D 


EB 


XCHG 




082E 


E5 


PUSH 


H 


082F 


CD3004 


CALL 


LINESRCH 


0832 


C5 


PUSH 
LISSTMLP; 


B 


0833 


CI 


POP 


B 


0834 


Dl 


POP 


D 


0835 


El 


POP 


H 


0836 


CD3E00 


CALL 


SYSBREAK 


0839 


CAOOOO 


JZ 


EXECUTEB 


083C 


C5 


PUSH 


B 


083D 


E3 


XTHL 




083E 


CD4D04 


CALL 


LINELINK 


0841 


CAOOOO 


JZ 


POPHLRET 


0844 


D5 


PUSH 


D 


0845 


C5 


PUSH 


B 


0846 


E5 


PUSH 


H 


0847 


4E 


MOV 


C,M 


0848 


23 


INX 


H 


0849 


46 


MOV 


B,M 


084A 


60 


MOV 


H.B 


084B 


69 


MOV 


L,C 


084C 


EB 


XCHG 




084D 


CDC104 


CALL 


CMHLLTDE 


0850 


DAOOOO 


JC 


LISSTMXT 


0853 


CDOOOO 


CALL 


PRNTCRLF 


0856 


EB 


XCHG 




0857 


CDOOOO 


CALL 


PRINTINT 


085A 


CD9405 


CALL 


PRNTCHRI 


085D 


20 


DB 


»t It 


085E 


El 


POP 


H 


085F 


CDOOOO 


CALL 


LISEDIXP 


0862 


CDOOOO 


CALL 


PRNTMSG 


0865 


21A000 


LXI 


H.O+LINE 


0868 


39 


DAD 


SP 


0869 


F9 


SPHL 




086A 


C33308 


JMP 


LISSTMLP 



;LIST COMMAND 

; TOTAL DEFAULT IS ENTIRE FILE 

;ELSE DEFAULT IS ONLY ONE LINE 

;SCAN LINE PARAMETERS 



;MOVE ON TO NEXT LINE 



;ALLOW BREAK 



;END OF PROGRAM, QUIT 



;SAVE TEXT FOR LATER 
; FETCH LINE NUMBER 



;LAST LINE REACHED? 
;LIST CURRENT LINE 

;PRINT LINE NUMBER 
;print (val) 
; FOLLOWED BY BLANK 

; EXPAND TEXT 
;AND PRINT IT 
SYZE+3 

; DEALLOCATE EXPANDED TEXT 
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LISSTMXT: 




086D 


El 


POP 
POPHL3RT: 


H 


086E 


El 


POP 


H 


086F 


El 


POP 
POPHLRET: 


H 


0870 


El 


POP 


H 


0871 


C9 


RET 





EXPAND KEYWORDS IN LINE / INVERSE OF KEYSCAN 



0872 
0874 
0877 
0878 
0879 
087C 
087D 
087E 
087F 
0880 
0881 
0882 
0883 
0886 
0887 
0888 
088A 



0E4E 

CDD804 

EB 

CI 

2160FF 

39 

F9 

C5 

EB 

23 

23 

E5 

210400 

39 

EB 

069D 

C30000 



088D CDOOOO 



0890 
0891 

0892 

0893 
0895 
0898 
0899 
089B 
089E 

08A0 
08A1 
08A4 
08A5 
08A8 



El 
7E 

23 

FE3A 

C20000 

7E 

FE8C 

CA9208 

3E3A 

A7 

CAOOOO 

E5 

F28D08 

4F 



LISEOIXP: 
MVI 
CALL 
XCHG 
POP 
LXI 
DAD 
SPHL 
PUSH 
XCHG 
INX 
INX 
PUSH 
LXI 
DAD 
XCHG 
MVI 
JMP 

LISEDISC: 
CALL 

LISEDIKD: 
POP 
MOV 

LISEDINC: 
INX 
CPI 
JNZ 
MOV 
CPI 
JZ 
MVI 

LISEDIKT: 
ANA 
JZ 

PUSH 
JP 
MOV 



C.LINESYZE/2 ;SPACE ENOUGH TO EXPAND LINE? 
SPACESTK 

;SAVE POINTER TO LINE TO EXPAND 
B ;AND CALLER 
H.O-LINESYZE-3 
SP 

;CREATE TEXT BUFFER ON STACK 
B ;PUT BACK CALLER 



H 

H 

H 

H.4 

SP 



plus 2 

SAVE TEXT POINTER 

CREATE POINTER TO EXPAND TEXT 



B.LINESYZE 
LISEDIKD 



INITIALIZE LENGTH COUNTER 



LISEDIST ;STUFF ONE CHARACTER OF LINE 

H ;DO REST OF LINE 
A.M 



H 

LISEDIKT 
A,M 

KEYELS ; 
LISEDINC 
A.":" 



:ELSE BECOMES ELSE 



A ;MOVE HIGH ORDER INTO S-FLAG 

LISEDIXT 

H 

LISEDISC 

C.A 
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08A9 


21A0A3 


LXI 


H,KEYLSBH*256+KEYLSBL 


08AC 


CDOOOO 


CALL 


LISEDISB ;OPTIONAL BLANK BEFORE KEYWORI 


08AF 


210401 


LXI 


H, KEYWORDS ;SEARCH FOR KEYWORD 


08B2 


C30000 


JMP 
LISEDIKL: 


LISEDIKS 


08B5 


B6 


ORA 


M 


08B6 


23 


INX 


H 


08B7 


F2B508 


JP 
LISEDIKS: 


LISEDIKL 


08BA 


7E 


MOV 


A,M ;FETCH KEYWORD NUMBER 


08BB 


F680 


ORI 


080H 


08BO 


23 


INX 


H 


08BE 


A9 


XRA 


C 


08BF 


C2B508 


JNZ 
LISEDIKY: 


LISEDIKL 


08C2 


7E 


MOV 


A,M ; EXPAND KEYWORD 


08C3 


07 


RLC 




08C4 


A7 


ANA 


A ;HI6H-0RDER TO CARRY 


08C5 


IF 


RAR 




08C6 


CDOOOO 


CALL 


LISEDIST ;STUFF THIS CHARACTER 


08C9 


23 


INX 


H 


08CA 


D2CZ08 


JNC 


LISEDIKY ;DO THEM ALL 


08CD 


79 


MOV 


A,C 


08CE 


2182A5 


LXI 


H,KEYLSAH*256+KEYLSAL 


08D1 


CDOOOO 


CALL 


LISEDISB ;OPTIONAL BLANK AFTER KEYWORD 


08D4 


C39008 


JMP 
LISEDISB: 


LISEDIKD 


08D7 


BD 


CMP 


L ; INSERT BLANK IN LINE IF 


08D8 


D8 


RC 


;L <■ A < H 


08O9 


BC 


CMP 


H 


08DA 


DO 


RNC 




08DB 


3E20 


MVI 
LISEDIST: 


A," " ;GENERATE BLANK 


08DD 


12 


STAX 


D 


08DE 


13 


INX 


D 


08DF 


05 


DCR 


B 


08E0 


CO 


RNZ 


;TRUNCATE TOO LONG A LINE 


08E1 


04 


INR 


B 


08EZ 


2B 


DCX 


H 


08E3 


C9 


RET 
LISEDIXT: 




08E4 


12 


STAX 


D 


08E5 


3E9E 


MVI 


A.LINESYZE+1 ;COMPUTE LENGTH OF OUTPUT 


08E7 


90 


SUB 


B 


08E8 


47 


MOV 


B,A 


08E9 


210200 


LXI 


H,2 ;CREATE POINTER TO EXPAND TEXT 


08EC 


39 


DAD 


SP 


08ED 


C9 


RET 


;AND RETURN 
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i EDIT COMMAND PROCESSOR 




EDISTM: 




08EE 110000 


LXI 


D,0 ;SCAN PARAMETERS 


08F1 CDE403 


CALL 


SCANLPRZ 


08F4 E3 


XTHL 


;SAVE SCAN, 


08F5 226F03 


SHLD 


SCANPTR1 ;AND OUTPUT LINE NUMBER 


08F8 CD3004 


CALL 


LINESRCH ;LOOK UP LINE 


08FB 020000 


JNC 


ERRAUS ;NOT FOUND. .. 


08FE 60 


MOV 


H,B 


08FF 69 


MOV 


L.C 


0900 23 


INX 


H 


0901 23 


INX 


H ;p1us 2 


0902 CO7208 


CALL 


LISEDIXP ;EXPAND LINE 


0905 2A6F03 


LHLD 


SCANPTR1 ; RECOVER LINE NUMBER 


0908 E5 


PUSH 
EDISTMLS: 


H 


0909 CDOOOO 


CALL 


EDISTMCR ;GIVE HIM A LOOK AT IT 


090C CDOOOO 


CALL 


PRNTMSG ;PRINT COPY OF TEXT 


090F CDOOOO 


CALL 


EDISTMCR ;A NEW EDIT LINE 


0912 0E01 


MVI 
EDISTMNX: 


C,l ;POSITION COUNTER 


0914 CDOOOO 


CALL 


EDISTMCH ;OK MASTER, TELL ME WHA 


0917 FE20 


CPI 


" " ;MOVE ALONG 


0919 CAOOOO 


JZ 


EDISTMAD 


091C CDBC03 


CALL 


ALPHACHA ; CONVERT LOWER TO UPPER 


091F FE44 


CPI 


"D" ;DELETE 


0921 CAOOOO 


JZ 


EDISTMDL 


0924 FE49 


CPI 


"I" ; INSERT 


0926 CAOOOO 


JZ 


EDISTMIN 


0929 FE52 


CPI 


"R" ; REPLACE 


092B CAOOOO 


JZ 
EOISTMER: 


EDISTMRP 


092E 3E07 


MVI 
EDISTMEC: 


A, BEL ;SQUAWK ABOUT ERROR 


0930 CD9805 


CALL 


PRNTCHRA ;ac -> screen 


0933 C31409 


JMP 
; ADVANCE 
EDISTMAD: 


EDISTMNX 


0936 79 


MOV 


A.C 


0937 B8 


CMP 


B ;CAN WE STILL ADVANCE? 


0938 D22E09 


JNC 


EDISTMER 


093B OC 


INR 


C ; ADVANCE POSITION COUNTER 


093C 7E 


MOV 


A.M 


093D 23 


INX 


H ; PRINT CHARACTER PASSED OVER 


093E C33009 


JMP 


EDISTMEC 
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DELETE 







EDISTMDL: 




0941 


79 


MOV 


A,C 


0942 


88 


CMP 


B 


0943 


D22E09 


JNC 


EDISTMER 


0946 


05 


DCR 


B 


0947 


E5 


PUSH 


H 


0948 


7E 


MOV 


A,M 


0949 


CD9805 


CALL 


PRNTCHRA 


094C 


54 


MOV 


D,H 


094D 


5D 


MOV 
EDISTMDM: 


E.L 


094E 


23 


INX 


H 


094F 


7E 


MOV 


A,M 


0950 


12 


STAX 


D 


0951 


13 


INX 


D 


0952 


B7 


ORA 


A 


0953 


C24E09 


JNZ 


EDISTMDM 


0956 


El 


POP 


H 


0957 


C31409 


JMP 
; INSERT 
EDISTMIN: 


EDISTMNX 


095A 


CDO0O0 


CALL 


EDISTMCH 


095D 


57 


MOV 
EDISTMRI: 


D.A 


095E 


78 


MOV 


A,B 


095F 


FE9D 


CPI 


LINESYZE 


0961 


D22E09 


JNC 


EDISTMER 


0964 


04 


INR 


B 


0965 


OC 


INR 


C 


0966 


7A 


MOV 


A.D 


0967 


CD9805 


CALL 


PRNTCHRA 


096A 


E5 


PUSH 
EDISTMIM: 


H 


096B 


5E 


MOV 


E.M 


096C 


77 


MOV 


M.A 


096D 


B7 


ORA 


A 


096E 


7B 


MOV 


A.E 


096F 


23 


INX 


H 


0970 


C26B09 


JNZ 


EDISTMIM 


0973 


El 


POP 


H 


0974 


23 


INX 


H 


0975 


C35A09 


JMP 


EDISTMIN 



;ANYTHING TO DELETE? 

;DECREASE CHARACTER COUNT 
;SAVE CURRENT POSITION 

;LIST CHARACTER DELETED 



;MOVE THIS CHARACTER DOWNWARD 



;GET SOMETHING TO PUT IN 
;SAVE COPY OF CHARACTER 



;ROOM AT THE INNPUT BUFFER? 

;COUNT NEWCOMER 

;NEXT ONE GOES AFTER HIM 

;ac -> screen ;PRINT NEWCOMER 
;SAVE CURRENT POSITION 



;MOVE CHARACTERS UP ONE BYTE 
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; REPLACE 








EDISTMRP: 




0978 


CD0000 


CALL 


EDISTMCH 


097B 


57 


MOV 


D,A 


097C 


79 


MOV 


A,C 


097D 


B8 


CMP 


B 


097E 


D25E09 


JNC 


EOISTMRI 


0981 


72 


MOV 


M.D 


0982 


OC 


INR 


C 


0983 


23 


INX 


H 


0984 


7A 


MOV 


A,D 


0985 


CD9805 


CALL 


PRNTCHRA 


0988 


C37809 


JMP 
; SEARCH 
EDISTMSR: 


EDISTMRP 


098B 


CDOOOO 


CALL 


EDISTMCH 


098E 


CDBC03 


CALL 


ALPHACHA 


0991 


57 


MOV 


D.A 


0992 


1E00 


MVI 
EDISTMSL: 


E.O 


0994 


79 


MOV 


A.C 


0995 


B8 


CMP 


B 


0996 


D22E09 


JNC 


EDISTMER 


0999 


CDBB03 


CALL 


ALPHACHK 


099C 


BB 


CMP 


E 


099D 


CA1409 


JZ 


EDISTMNX 


09A0 


CD9805 


CALL 


PRNTCHRA 


09A3 


OC 


INR 


C 


09A4 


23 


INX 


H 


09A5 


5A 


MOV 


E.D 


09A6 


C39409 


JMP 


EDISTMSL 



;GET UPDATE CHARACTER 



REPLACING END OF LINE? 

;IF SO, GO TO INSERT 
;UPDATE THE CHARACTER 

;ac -> screen ;PRINT NEWCOMER 



;FIND CHARACTER TO SEARCH FOR 
;CONVERT TO STANDARD CASE 



;NO MORE, TERMINATE SEARCH 

; FETCH CHARACTER IN STANDARD CASE 

; GOTTA MATCH7 

;ac -> screen ;LIST FAILURES 



;AND KEEP LOOKING 
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09A9 OD 
09AA C20909 
09AD 01 
09AE 210000 
09B1 39 
09B2 CD5904 

09B5 21A000 
09B8 39 
09B9 F9 
09BA El 
09BB C9 



EDISTMXT: 
DCR 
JNZ 
POP 
LXI 
DAD 
CALL 

EDISTMQT: 
LXI 
DAD 
SPHL 
POP 
RET 



C ; BEGINNING CR MEANS DONE, UPDATE 

EDISTMLS ;OTHERWISE, LIST, MORE EDITS 

D ; RETRIEVE LINE NUMBER 

H,0 

SP ; POINT TO TEXT 

LINEINS ;AND REINSERT 

H.O+LINESYZE+3 
SP 

DEALLOCATE TEXT BUFFER 
H ; RECOVER SCAN POINTER 

AND RETURN 



LIST LINE, PREPARE FOR UPDATES 



09BC 
09BD 
09BE 
09BF 
09C0 
09C1 
09C4 
09C7 
09CA 
09CB 
09CE 
09CF 
09D0 



Dl 

El 

E5 

D5 

C5 

CD0000 

CDOO00 

CD9405 

20 

210600 

39 

CI 

C9 



EDISTMCR: 
POP 
POP 
PUSH 
PUSH 
PUSH 
CALL 
CALL 
CALL 
DB 
LXI 
DAD 
POP 
RET 



RETRIEVE COPY OF LINE NUMBER 
;SAVE IT. 



D 

H 

H 

D 

B ;AND LINE LENGTH 

PRNTCRLF 

PRINTINT ;PRINT LINE NUMBER 

PRNTCHRI ;print (val) 



H.6 

SP 

B 



;CREATE POINTER TO TEXT BUFFER 



GET OPTION CHARACTER 



09D1 
09D4 
09D6 
09D7 
09D9 
09DA 
09DB 
09DD 
09EO 
09E2 
09E5 
09E7 
09EA 
09EC 
09EF 
09F2 
09F5 
09F6 



CDBB05 

FE20 

DO 

FE07 

C8 

Dl 

FE09 

CA8B09 

FEOD 

CAA909 

FE1B 

CA1409 

FE03 

C22E09 

21C507 

CDOOOO 

Dl 

C3B509 



EDISTMCH: 
CALL 
CPI 
RNC 
CPI 
RZ 
POP 
CPI 
JZ 
CPI 
JZ 
CPI 
JZ 
CPI 
JNZ 
LXI 
CALL 
POP 
JMP 



INPTCHAR 



;GET CHARACTER ROUTINE 



BEL 



;NOT CONTROL, RETURN 



D ; REMOVE CALLER 

HT ;SEARCH (TAB) 

EDISTMSR 

CR ;LIST, OR UPDATE 

EDISTMXT 

ESC ;TERMINATE OPTION 

EDISTMNX 

ETX ; ABORT, NO UPDATE 

EDISTMER 

H.MSGSTARS ;TYPE BREAK MESSAGE 

PRNTMSG 

D 

EDISTMQT 
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SCAN STACK FOR "FOR" LOOP 



09F9 0010 FORBLCK 



EQU 



16 



;SIZE OF "FOR" STACK ENTRY 







FORCHK: 




09F9 


210400 


LXI 


H,4 ;LOOK FOR MARK ON STACK 


09FC 


39 


DAD 
FORCHKL: 


SP 


09FD 


7E 


MOV 


A.M 


09FE 


23 


INX 


H 


09FF 


FE83 


CPI 


KEYFOR 


OA01 


CO 


RNZ 




OA02 


3E04 


MVI 


A.TYPESING 


0A04 


326803 


STA 


TYPEFLG ;SET CORRECT TYPE FLAG 


0A07 


4E 


MOV 


C.M ;MARK IS PRESENT 


0A08 


23 


INX 


H 


0A09 


46 


MOV 


B,M 


OAOA 


23 


INX 


h' 


OAOB 


E5 


PUSH 


H 


OAOC 


60 


MOV 


H.B 


OAOD 


69 


MOV 


L.C 


OAOE 


7A 


MOV 


A,D ;LOOKING FOR PARTICULAR VARI 


OAOF 


B3 


ORA 


E 


OA10 


EB 


XCHG 




OA11 


CA0000 


JZ 


FORCHKXT 


OA14 


EB 


XCHG 


;IS THIS IT7 


0A15 


CDC104 


CALL 
FORCHKXT: 


CMHLLTDE 


0A18 


010D00 


LXI 


B.FORBLCK-3 


OA1B 


El 


POP 


H 


OA1C 


C8 


RZ 




OA1D 


09 


DAD 


B 


OA1E 


C3FD09 


JMP 


FORCHKL 






; FOR STATEMENT PROCESSOR 






FORSTM: 




0A21 


3EAB 


MVI 


A.SCANPFLD ; FOR STATEMENT 


0A23 


326703 


STA 


SCANPFLG 


0A26 


CDOOOO 


CALL 


LETSTM 


0A29 


CDD903 


CALL 


TYPECHK 


0A2C 


EAOOOO 


JPE 


ERRATM ;MUST BE SINGLE INDEX 


0A2F 


E3 


XTHL 


;SAVE SCANPTR, REMOVE CALLER 


0A30 


EB 


XCHG 




0A31 


227703 


SHLD 


VARINDEX 


0A34 


EB 


XCHG 




0A35 


CDF909 


CALL 


FORCHK 


0A38 


Dl 


POP 


D 


0A39 


C20000 


JNZ 


FORSTMNF 


0A3C 


09 


DAD 


B 


0A3D 


F9 


SPHL 
FORSTMNF: 




0A3E 


EB 


XCHG 




0A3F 


OE08 


MVI 


C.FORBLCK+1/2 
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0A41 CDD804 


CALL 


SPACESTK 




0A44 E5 


PUSH 


H 




0A45 CDOOOO 


CALL 


DATSTM 


;FIND FIRST STATEMENT IN FOR L' 


0A48 E3 


XTHL 




;AND SAVE 


0A49 E5 


PUSH 


H 




OA4A 2A7303 


LHLD 


CURLINE 


;SAVE CURRENT LINE NUMBER 


OA40 E3 


XTHL 






OA4E CDA303 


CALL 


SCANNXTV 


;bscan (val) 


0A51 Al 


DB 


KEYTO 


;SCAN LIMIT VALUE, 


0A52 CDOOOO 


CALL 


VALNUMBR 


;bscan numbr 


0A55 ES 


PUSH 


H 




OA56 CDOOOO 


CALL 


LDRGAC 




0A59 El 


POP 


H 




OA5A C5 


PUSH 


B 


; SAVE ON STACK 


OASB DS 


PUSH 


D 




0A5C 010081 


LXI 


B.08100H 


;LOAD DEFAULT STEP-1.0 


0A5F 51 


MOV 


D.C 




0A60 5A 


MOV 


E.D 




0A61 7E 


MOV 


A.M 




0A62 FEA2 


CPI 


KEYSTEP 


;CHECK FOR EXPLICIT STEP SIZE 


0A64 3E01 


MVI 


A.001H 




0A66 C20000 


JNZ 


FORSTMST 




0A69 CDAB03 


CALL 


SCANNXT 


;bscan + 


0A6C CDOOOO 


CALL 


VALNUMBR 


;bscan numbr 


0A6F E5 


PUSH 


H 




0A70 CDOOOO 


CALL 


LDRGAC 




0A73 El 


POP 


H 




0A74 CDOOOO 


CALL 
FORSTMST: 


SIGNACC 




0A77 C5 


PUSH 


B 


;SAVE STEP SIZE ON STACK 


0A78 D5 


PUSH 


D 




0A79 F5 


PUSH 


PSW 


;SAVE DIRECTION 


0A7A 33 


INX 


SP 




0A7B E5 


PUSH 


H 




0A7C 2A7703 


LHLD 


VARINDEX 


;SAVE INDEX VARIABLE 


0A7F E3 


XTHL 
FORMARK: 






0A80 0683 


MVI 


B.KEYFOR 


;MARK STACK WITH "FOR" 


0A82 C5 


PUSH 


B 




0A83 33 


INX 


SP 
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; INTERPRETER EXECUTIVE 




EXECUTEL: 




0A84 CDOOOO 


CALL 


BREAKCHK ;USER HAVE ANY COMMEN 


0A87 227703 


SHLD 


PROGCNTR 


0A8A 7E 


MOV 


A.M 


0A8B FE3A 


CPI 


ti , If 


0A8D CAOOOO 


JZ 


EXECUTE MULTIPLE STATEMENTS ON LINE? 


0A90 B7 


ORA 


A 


0A91 C2EF05 


JNZ 


ERRASN 


0A94 23 


INX 


H ; END OF LINE. 


0A95 7E 


MOV 


A.M 


0A96 23 


INX 


H 


0A97 B6 


ORA 


M 


0A98 23 


INX 


H 


0A99 CAOOOO 


JZ 


ENDPROGM rFND f)F PROGRAM? 


0A9C 5E 


MOV 


E,M 


0A9D 23 


INX 


H 


0A9E 56 


MOV 


D,M 


0A9F EB 


XCHG 




OAAO 227303 


SHLD 


CURLINE ;MOVE TO NEXT LINE 


0AA3 EB 


XCHG 
EXECUTE: 




0AA4 CDAB03 


CALL 


SCANNXT ;bscan , ;EXECUTE STAT 


0AA7 11840A 


LXI 


D, EXECUTEL 


OAAA D5 


PUSH 
EXECUTEC: 


D 


OAAB C8 


RZ 
EXECUTES: 




OAAC FE80 


CPI 


KEYSTM ;WHAT KIND OF STATEMENT? 


OAAE DAOOOO 


JC 


LETSTM 


0AB1 FEAO 


CPI 


KEYSUGR 


0AB3 D20000 


JNC 


EXECUTE2 


0AB6 87 


ADD 


A 


0AB7 4F 


MOV 


C.A 


0AB8 0600 


MVI 


B.OOOH 


OABA EB 


XCHG 




OABB 214E00 


LXI 


H.STMTABL 


OABE 09 


DAD 


B 


OABF 4E 


MOV 


C,M 


OACO 23 


INX 


H 


0AC1 46 


MOV 


B,M 


0AC2 C5 


PUSH 


B 


0AC3 EB 


XCHG 




0AC4 C3AB03 


JMP 


SCANNXT 
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BREAKCHK: 






0AC7 CD3E00 


CALL 
STPSTM: 


SYSBREAK 


;TIME TO TAKE 


OACA CO 


RNZ 


;STOP 


STATEMENT 


OACB 3C 


INR 
EXECUTEB: 


A 




OACC 227703 


SHLD 
INPSTMBR: 


PROGCNTR 




OACF CI 


POP 
ENDPR06M: 


B ;THRO\» 


1 AWAY CALLER 


OADO F5 


PUSH 


PSW 




0AD1 2A7303 


LHLD 


CURLINE 




0AD4 7D 


MOV 


A.L 




0AD5 A4 


ANA 


H 




0AD6 3C 


INR 


A 




0AD7 CAOOOO 


JZ 


ENDSTMC 




OADA 227503 


SHLD 


CURLINES 


;SAVE INFORMAT 


OADD 2A7703 


LHLD 


PROGCNTR 




OAEO 227903 


SHLD 
ENDSTMC: 


PROGCNTS 




0AE3 AF 


XRA 


A 




0AE4 326503 


STA 


PRINTFLG 




0AE7 Fl 


POP 


PSW 




0AE8 21E105 


LXI 


H.MSGBREAK 




OAEB C20D06 


JNZ 


ERRMSGPR 




OAEE C31906 


JMP 
CONSTM: 


CMNDSTRT 




0AF1 CO 


RNZ 


;CONT 


COMMAND 


0AF2 1E00 


MVI 


E.ERRNCN-ERRN 




0AF4 2A7903 


LHLD 


PROGCNTS 




0AF7 7C 


MOV 


A,H 




0AF8 85 


ORA 


L 




0AF9 CAF105 


JZ 


ERRMSG 




OAFC EB 


XCHG 






OAFD 2A7503 


LHLD 


CURLINES 




OBOO 227303 


SHLD 


CURLINE 




0B03 EB 


XCHG 






0B04 C9 


RET 
RUNSTM: 






0B05 CA0205 


JZ 


CLEARSET 


;RUN COMMAND 


0B08 CD0505 


CALL 


CLEARVST 




OBOB 01840A 


LXI 


B.EXECUTEL 




OBOE C30000 


JMP 
ENDSTM: 


RUNSTMC 




0B11 CACCOA 


JZ 


EXECUTEB 


;END STATEMENT 


0B14 CDA303 


CALL 


SCANNXTV 


;bscan (val) 


0B17 8A 


DB 


KEYRUN 




0B18 C34B00 


JMP 


SYSQUIT 
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G0SUB/60T0 STATEMENTS 






GSBSTM: 






0B1B 


OE03 


MVI 


C.3 ;GOSUB 


STATEMENT 


OB1D 


CDD804 


CALL 


SPACESTK 




0B20 


CI 


POP 


B 




0B21 


E5 


PUSH 


H 




0B22 


E5 


PUSH 


H 




0B23 


2A7303 


LHLD 


CURLINE 




0B26 


E3 


XTHL 






0B27 


168E 


MVI 


D.KEYGSB 


;MARK STACK WI 


0B29 


D5 


PUSH 


D 




0B2A 


33 


I NX 


SP 






RUNSTMC: 






0B2B 


C5 


PUSH 


B 






GTOSTM: 






0B2C 


CDOB04 


CALL 


SCANLINN 


;GOTO STATEMEN 


0B2F 


D5 


PUSH 


D 




0B30 


CDOOOO 


CALL 


REMSTM 




0B33 


Dl 


POP 


D 




0B34 


E5 


PUSH 


H 




0B35 


CDOOOO 


CALL 


TRACE 




0B38 


2A7303 


LHLD 


CURLINE 




0B3B 


CDC104 


CALL 


CMHLLTDE 




0B3E 


El 


POP 


H 




0B3F 


23 


INX 


H 




0B40 


DC3304 


CC 


LINESRCL 




0B43 


D43004 


CNC 


LINESRCH 




OB46 


60 


MOV 


H.B 




0B47 


69 


MOV 


L.C 




0B48 


2B 


DCX 


H 




OB49 


D8 


RC 








ERRAUS: 






OB4A 


1EC5 


MVI 


E.ERRNUS-ERRN 




OB4C 


C3F105 

F 


JMP 

RETURN 
tETSTM: 


ERRMSG 
STATEMENT 




OB4F 


CO 


RNZ 


; RETURN 


STATEMENT 


0B50 


16FF 


MVI 


D.OFFH 




0B52 


CDF909 


CALL 


FORCHK ;KILL ACTIVE FOR LOOPS 


0B55 


F9 


SPHL 


; INSIDE 


SUBROUTINE 


0B56 


FE8E 


CPI 


KEYGSB 




0B58 


1E76 


MVI 


E.ERRNRG-ERRN 




0B5A 


C2F105 


JNZ 


ERRMSG 




0B5D 


Dl 


POP 


D 




0B5E 


CDOOOO 


CALL 


TRACE 




0B61 


EB 


XCHG 






0B62 


227303 


SHLD 


CURLINE 




0B65 


21840A 


LXI 


H.EXECUTEL 




0B68 


E3 


XTHL 

JMP 


DATSTM 
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DATA/ELSE/REM STATEMENTS 



DATSTM: 
0B69 0E3A MVI 
0B6B C30000 JMP 

ELSSTM: 



0B6E 

0B70 

0B72 
0B73 
0B74 

0B75 
0B76 
0B77 
0B78 
0B79 
0B7A 
0B7B 
0B7D 
OBBO 
0B82 
0B85 
0B86 



OEOO 

0600 

79 
48 
47 

7E 

B7 

C8 

B8 

C8 

23 

FE22 

CA720B 

FE8B 

C2750B 

14 

C3750B 



REMSTM: 
MVI 

SCAN2KEY: 
MVI 

DATRSKST: 
MOV 
MOV 
MOV 

DATRSKIP: 
MOV 
ORA 
RZ 
CMP 
RZ 
INX 
CPI 
JZ 
CPI 
JNZ 
INR 
JMP 



C,":" ;DATA STATEMENT 
SCAN2KEY 



C.000H 

B.OOOH 

A.C 
C.B 
B.A 



REM STATEMENT 

SKIP TO KEYWORD IN C 

SET UP TERMINATING BYTE 

;SKIP TO TERMINATING BYTE 



A.M 
A 

B 

H 

;STRING TO SKIP? 
DATRSKST 
KEYIF 
DATRSKIP 

D ;COUNT NUMBER OF IFS WE SKIP 
DATRSKIP 



PROGRAM BRANCH TRACING 



0B89 
0B8C 
0B8D 
0B8E 
0B8F 
0B90 
0B93 
0B94 
0B97 
0B9A 
0B9D 
0B9E 
0B9F 
OBAO 
0BA3 
0BA6 



3A6603 

B7 

CO 

C5 

D5 

CD9405 

5B 

2A7303 

CD0000 

CD9405 

2C 

El 

E5 

CDOO00 

CD9405 

5D 



0BA7 Dl 
0BA8 CI 
0BA9 C9 



TRACE: 
LDA 
ORA 
RNZ 
PUSH 
PUSH 
CALL 
DB 

LHLD 
CALL 
CALL 
DB 
POP 
PUSH 
CALL 
CALL 
DB 

POPDEBCR: 
POP 
POP 
RET 



TRACEFLG 
A 



; TRACING? 



B 

D ;SAVE DESTINATION LINE NUMBER 

PRNTCHRI ;print (val) 

"[" ;LEFT BRACKET 

CURLINE 

PRINTINT ;PRINT CURRENT LINE NUMBER 

PRNTCHRI ;print (val) 

II tl 

h' 

H 

PRINTINT :PRINT DESTINATION LINE NUMBER 

PRNTCHRI ;print (val) 

"]" ; RIGHT BRACKET 

D 
B 
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ASSIGNMENT STATEMENT PROCESSOR 



OBAA CO0000 
OBAD CDA303 
OBBO B5 

0BB1 3A6B03 
0BB4 F5 
0BB5 D5 
0BB6 CDOOOO 
0BB9 Dl 
OBBA Fl 



OBBB 
OBBC 
OBBD 
OBBE 
0BC1 
0BC4 
0BC7 
OBCA 
OBCB 
OBCE 
OBCF 



EB 

D5 

E5 

CDOOOO 

CZOOOO 

CDOOOO 

CDOOOO 

El 

CDOOOO 

El 

C9 



LETSTM: 
CALL 
CALL 
DB 

ASSIGNVL: 
LDA 
PUSH 
PUSH 
CALL 
POP 
POP 

ASSIGN: 
XCHG 
PUSH 
PUSH 
CALL 
JNZ 
CALL 
CALL 
POP 
CALL 
POP 
RET 



VARSCAN ;LET STATEMENT 
SCANNXTV ;bscan (val) 
KEYEQ 

TYPEFLG 

PSW 

D 

VALEXPR ;bscan expr 

D 

PSW 



D 

H 

COERCE 

LETSTMNM 

STRGUNIQ 

STRGRELT 

H 

COPYVAL 

H 



;MAKE THE ASSIGNMENT 
:SAVE SCAN 
;SAVE VARIABLE 



; REMOVE CONFLICT PROBLEMS 
; RELEASE STRING TEMPORARY 
;COPY DESCRIPTOR TO DESTINATION 



OBDO CDOOOO 

0BD3 Dl 

0BD4 El 

0BD5 C9 



LETSTMNM: 
CALL 
POP 
POP 
RET 



LDMMAC 

D 

H 



;MAKE NUMERIC ASSIGNMENT 



0BD6 2A9303 
0BD9 EB 
OBDA CDOOOO 
OBDD DO 
OBDE CDC104 
OBEl D40000 
0BE4 C9 



STRGUNIQ: 
LHLD 
XCHG 
CALL 
RNC 
CALL 
CNC 
RET 



ACCUMLTR 

STRGTEST* 

CMHLLTDE 
STRGSTOR 



;GET STRING DESCRIPTOR 
;IS STRING IN STRING SPACE? 



;VARIABLE REFERENCE? 
;IF SO, MAKE NEW COPY 
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COERCE ACCUMULATOR TO TYPE IN A 



COERCE: 



0BE5 


CDDC03 


CALL 
COERCEF: 


TYPECHKA 




0BE8 


E200O0 


JPO 


CSINGLE 




OBEB 


CAOOOO 


JZ 


CSTRING 




OBEE 


C30000 


JMP 
VALNUMBR: 


ERRATM 




0BF1 


CDOOOO 


CALL 
CSINGLE: 


VALEXPR 


bscan expr 


0BF4 


CD0903 


CALL 


TYPECHK 




0BF7 


EO 


RPO 






0BF8 


C30000 


JMP 
CSTRING: 


ERRATM 




OBFB 


CDD903 


CALL 


TYPECHK 




OBFE 


C8 


RZ 






OBFF 


C30000 


JMP 
ERRATM: 


ERRATM 




0CO2 


1EBO 


MVI 


E.ERRNTM- 


•ERRN 


OC04 


C3F105 


JMP 
VALINTDE: 


ERRMSG 




0C07 


COFIOB 


CALL 
CINTPOS: 


VALNUMBR 


;bscan numbr 


OCOA 


CDOOOO 


CALL 


SIGNACC 


CONVERT TO INTEGER 


OCOD 


FAOOOO 


JM 
CINTEGER: 


ERRAFC 




0C10 


3A9603 


LDA 


FLACCEXP 




DC13 


FE90 


CPI 


090H 




0C15 


DAOOOO 


JC 


FIXAC 




0C18 


018090 


LXI 


B.09080H 




OC1B 


110000 


LXI 


D.OOOOOH 




OC1E 


CDOOOO 


CALL 


FLCMP 




0C21 


51 


MOV 


D.C 




0C22 


C8 


RZ 
ERRAFC: 






0C23 


1E2D 


MVI 


E.ERRNFC- 


ERRN 


0C25 


C3F105 


JMP 
VALBYTE2: 


ERRMSG 




0C28 


CDA303 


CALL 


SCANNXTV 


; bscan (val) 


0C2B 


2C 


DB 
VALBYTE: 


"," 


EVAL LATER BYTE ARG 


OC2C 


CDFIOB 


CALL 
CBYTE: 


VALNUMBR 


;bscan numbr 


0C2F 


CDOAOC 


CALL 


CINTPOS 


CONVERT ACC TO BYTE 


0C32 


7A 


MOV 


A,D 




0C33 


B7 


ORA 


A 




OC34 


C2230C 


JNZ 


ERRAFC 





basic. LST 




5 


■Sep-78 14:29:54 


0C37 2B 


DCX 


H 




0C38 CDAB03 


CALL 


SCANNXT 


;bscan , 


0C3B 7B 


MOV 


A.E 




0C3C C9 


RET 
EXECUTE2: 






0C3D FEC4 


CPI 


KEYPORT 


;PORT OUTPUT? 


0C3F CAOOOO 


JZ 


PORSTM 




OC42 FEC6 


CPI 


KEYMEM 


;MEMORY ALTERATION? 


OC44 CAOOOO 


JZ 


MEMSTM 
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MID-STRING ASSIGNMENT STATEMENT 



0C47 
0C4A 
OC4B 
0C4E 
0C4F 
0C52 
0C55 
OC56 
0C57 
0C5A 
0C5B 
0C5E 
0C5F 
OC62 
0C63 
0C66 
0C67 
OC6A 
0C6B 
0C6O 
0C6E 
0C70 
0C73 
0C76 
0C77 
0C78 
0C79 
0C7A 
0C7D 
0C7E 
0C81 
OC84 
0C87 
0C88 
0C89 
0C8A 
0C8B 
0C8C 
0C8F 



COA303 

Dl 

CDA303 

28 

CDOOOO 

CDFBOB 

D5 

E5 

CDOOOO 

D5 

D40000 

El 

CDOOOO 

El 

CD280C 

B7 

CA230C 

D5 

1EFF 

7E 

FE29 

C4280C 

CDA303 

29 

CI 

51 

D5 

CDA303 

B5 

CDOOOO 

226F03 

CDOOOO 

4E 

23 

46 

Dl 

BB 

D20000 

5F 



0C90 El 



MIDSTM: 
CALL 
DB 

CALL 
DB 

CALL 
CALL 
PUSH 
PUSH 
CALL 
PUSH 
CNC 
POP 
CALL 
POP 
CALL 
ORA 
JZ 

PUSH 
MVI 
MOV 
CPI 
CNZ 
CALL 
DB 
POP 
MOV 
PUSH 
CALL 
DB 

CALL 
SHLD 
CALL 
MOV 
INX 
MOV 
POP 
CMP 
JNC 
MOV 

MIDSTMLN: 
POP 



SCANNXTV ;bscan (val) 
KEYMID ;ENTER POINTING TO "MID$" 
SCANNXTV :hscan (van 

"(" 

VARSCAN ;SCAN VARIABLE TO UPDATE 

CSTRING ;MAKE SURE IT"S A STRING 

D ;SAVE REFERENCE 

H 

STRGTEST ;WHERE IS STRING NOW? 

D ;SHOULDN"T BE IN PROGRAM 

STRGSTOR ;OR ELSE WE MODIFY OURSELF 

H 

COPYVAL 

H ;CONTINUE SCAN 

VALBYTE2 ;SCAN STARTING POSITION 

A 

ERRAFC ;MUST BE NON-ZERO 

D 

E.OFFH 

A.M 

")" ; DEFAULT LENGTH? 

VALBYTE2 ;SCAN LENGTH, IF GIVEN 

SCANNXTV ;bscan (val) 

")" 

B ; CONDENSE STACK 

D.C 

D 

SCANNXTV ;bscan (val) 

KEYEQ 

VALEXPR ;bscan expr EVALUATE RIGHT HAND SIDE 

SCANPTR1 

LENFCTC ;RELEASE STRING RESOURCE 

C,M ;AND LOAD DESCRIPTOR 

H 

B,M 

D ;GET BACK LENGTH, START 

E 

MIDSTMLN ;LENMOV = MIN(LENI, LENS) 

E,A 



H 



;RECOVER DESTINATION DESCRIPTOR 
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0C91 7E MOV A,M ;GET ITS LENGTH 

OC92 15 DCR D 

0C93 92 SUB ;SUBTRACT STARTING POSITION 

0C94 DA0000 JC MIDSTMXT ;NOTHING TO DO IF BEYOND 
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0C97 BB 


CMP 


E 




0C98 020000 


JNC 


MIDSTMLM 




0C9B 5F 


MOV 

MIDSTMLM: 


E,A 




0C9C C5 


PUSH 


B 


;SAVE SOURCE ADDRESS 


0C9D CDOOOO 


CALL 


LDICBMM 


•COMPUTE DESTINATION ADDRESS 


OCAO 6A 


MOV 


L.D 




0CA1 2600 


MVI 


H.O 




0CA3 09 


DAD 


B 




0CA4 EB 


XCHG 






0CA5 CI 


POP 


B 




0CA6 CDOOOO 


CALL 
MIDSTMXT: 


COPYSTRG 


;COPY STRING 


0CA9 2A6F03 


LHLD 


SCANPTR1 




OCAC C9 


RET 








; LOCATE 


STRING REFERENCED BY DE 




STRGTEST: 






OCAD D5 


PUSH 


D 


DE=STRING REFERENCE 


OCAE EB 


XCHG 






OCAF 23 


INX 


H 


GET ADDRESS OF STRING 


OCBO 5E 


MOV 


E.M 




0CB1 23 


INX 


H 




0CB2 56 


MOV 


D,M 




0CB3 2A8703 


LHLD 


FREELIMT 


; BOUNDARY 


0CB6 CDC104 


CALL 


CMHLLTDE 


;NC = STRING IN PROGRAM 


0CB9 Dl 


POP 


D 


C = STRING IN BUFFER 


OCBA C9 


RET 




OR STRING SPACE 
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; CASE/CONDITIONAL STATEMENT PROCESSORS 






ONSTM: 




OCBB 


CD2C0C 


CALL 


VALBYTE ;0N STATEMENT 


OCBE 


7E 


MOV 


A,M 


OCBF 


47 


MOV 


B,A 


OCCO 


FE8E 


CPI 


KEYGSB ;GOSUB RATHER THAN GOTO? 


0CC2 


CAOOOO 


JZ 


ONNSTMC 


0CC5 


CDA303 


CALL 


SCANNXTV ;bscan (val) 


0CC8 


89 


DB 


KEYGTO ;MUST BE GOTO... 


OCC9 


2B 


DCX 
ONNSTMC: 


H 


OCCA 


4B 


MOV 
ONNSTMSL: 


CE 


OCCB 


OD 


DCR 


C ;LOOK FOR RIGHT LINE NUMBER 


OCCC 


78 


MOV 


A.B 


OCCD 


CAACOA 


JZ 


EXECUTES ;THEN EXECUTE STATEMENT 


OCDO 


CD0C04 


CALL 


SCANLINR 


OCD3 


FE2C 


CPI 


( 


0CD5 


CO 


RNZ 




0CD6 


C3CB0C 


JMP 
IFSTM: 


ONNSTMSL 


OCD9 


CDFIOB 


CALL 


VALNUMBR ;bscan numbr ;IF STATEMENT 


OCDC 


7E 


MOV 


A,M 


OCOD 


FE89 


CPI 


KEYGTO 


OCDF 


CAOOOO 


JZ 


IFNSTMC 


0CE2 


CDA303 


CALL 


SCANNXTV ;bscan (val) 


0CE5 


AO 


DB 
IFNSTMC: 


KEYTHEN 


0CE6 


CDOOOO 


CALL 


SIGNACC ;TEST CONDITION 


OCE9 


C20000 


JNZ 


IFNSTMCH 


OCEC 


1601 


MVI 
IFNSTMSK: 


0,1 


OCEE 


0E8C 


MVI 


CKEYELS 


OCFO 


CD700B 


CALL 


SCAN2KEY ;SKIP TO CORRESPONDING ELSE 


0CF3 


B7 


ORA 


A 


OCF4 


C8 


RZ 


;0R END OF LINE 


OCF5 


CDAB03 


CALL 


SCANNXT ;bscan + 


OCF8 


15 


DCR 


D 


OCF9 


C2EE0C 


JNZ 
IFNSTMCH: 


IFNSTMSK 


OCFC 


2B 


DCX 


H ;bscan - 


OCFO 


CDAB03 


CALL 


SCANNXT ;bscan , ;CHOICE MADE 


ODOO 


DA2C0B 


JC 


GTOSTM ;G0TO A LABEL, 


0D03 


C3AB0A 


JMP 


EXECUTEC ;0R EXECUTE A STATEMENT 
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; PRINT 


STATEMENT PROCESSOR 






PRTSTMN: 




OD06 


FEA5 


CPI 


KEYTAB ;TAB OPTION? 


0008 


CAOOOO 


JZ 


PRNTOPTN 


0D0B 


FEA6 


CPI 


KEYSPC ;SPACE OPTION? 


ODOD 


CAOOOO 


JZ 


PRNTOPTN 


0D10 


E5 


PUSH 


H 


0D11 


FE2C 


CPI 


ft if 


0D13 


CAOOOO 


JZ 


PRNTCOMA 


0D16 


FE3B 


CPI 


II , If 


0D18 


CAOOOO 


JZ 


PRNTSEMI 


0D1B 


CI 


POP 


B 


0D1C 


CDOOOO 


CALL 


VALEXPR ;bscan expr 


0D1F 


2B 


DCX 


H ;bscan - 


0D20 


F5 


PUSH 


H 


0D21 


CDD903 


CALL 


TYPECHK 


0D24 


CAOOOO 


JZ 


PRTSTRNG 


0D27 


CDOOOO 


CALL 


VALSTRGN ;CREATE STRING FROM NUMBER 


0D2A 


2A9303 


LHLD 


ACCUMLTR ;VERIFY ROOM ENOUGH ON LINE 


0D2D 


7E 


MOV 


A,M 


0D2E 


219903 


LXI 


H.CURSPOS 


0D31 


86 


ADD 


M 


0D32 


23 


INX 


H 


0D33 


86 


ADD 


M 


0D34 


DCOOOO 


CC 


PRNTCRLF ;N0 ROOM, FIND ANOTHER LINE 


0D37 


CDOOOO 


CALL 


PRNTSTRT 


0D3A 


CD9405 


CALL 


PRNTCHRI ;print (val) 


0D3D 


20 


DB 


If It 


0D3E 


3C 


INR 
PRTSTRNG: 


A 


0D3F 


CCOOOO 


CZ 


PRNTSTRT ;SEND OUTPUT STRING 


0D42 


El 


POP 


H 


0043 


CDAB03 


CALL 
PRTSTM: 


SCANNXT ;bscan , 


0D46 


C2060D 


JNZ 
PRNTCRLF: 


PRTSTMN ;PRINT STATEMENT 


0D49 


CD9405 


CALL 


PRNTCHRI ;print (val) 


0D4C 


OD 


DB 


CR ;PRINT A CR, LF 


0D4D 


CD9405 


CALL 


PRNTCHRI ;print (val) 


0D50 


OA 


DB 
PRNTNULS: 


LF 


0D51 


3A9803 


LDA 
PRNTNULL: 


NULLCNT ;PRINT NULLS AFTER CR 


0D54 


3D 


DCR 


A 


0D55 


329903 


STA 


CURSPOS 


0D58 


C8 


RZ 




0D59 


F5 


PUSH 


PSW 


0D5A 


AF 


XRA 


A 


0D5B 


CD9805 


CALL 


PRNTCHRA ;ac -> screen 


0D5E 


Fl 


POP 


PSW 


0D5F 


C3540D 


JMP 


PRNTNULL 
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PRNTCOMA: 




0D6Z 


3A9903 


LDA 


CURSPOS ;COMMA SEPARATOR 


0D65 


FE8C 


CPI 


LINESYZE/ITEMSIZE-l'ITEMSIZE 


0D67 


D4490D 


CNC 


PRNTCRLF 


0D6A 


D20000 


JNC 
PRNTCOML: 


PRNTSEMI 


0D6D 


D60E 


SUI 


ITEMSIZE 


0D6F 


D26O0D 


JNC 


PRNTCOML 


0D72 


2F 


CMA 




0D73 


C30000 


JMP 
PRNTOPTN: 


PRNTCOMC 


0D76 


F5 


PUSH 


PSW 


0D77 


CDAB03 


CALL 


SCANNXT ;bscan + 


0D7A 


CDOOOO 


CALL 


VALPARNS ;GET OPTION PARAMETER 


0D7D 


CDF40B 


CALL 


CSINGLE 


0D80 


CD2F0C 


CALL 


CBYTE 


0D83 


2B 


DCX 


H 


0D84 


Fl 


POP 


PSW 


0D85 


FEA6 


CPI 


KEYSPC 


0D87 


E5 


PUSH 


H 


0D68 


7B 


MOV 


A.E 


0D89 


CAOOOO 


JZ 


PRNTBLNK 


0D8C 


3A9903 


LDA 


CURSPOS 


ODBF 


2F 


CMA 




0D90 


83 


ADD 


E 


OD91 


D20000 


JNC 
PRNTCOMC: 


PRNTSEMI 


OD94 


3C 


INR 
PRNTBLNK: 


A 


OD95 


47 


MOV 


B,A ;PAD OUTPUT WITH A BLANKS 


0D96 


B7 


ORA 


A 


0D97 


CAOOOO 


JZ 


PRNTSEMI 


0D9A 


3E20 


MVI 
PRNTBLNL: 


A," " 


0D9C 


CD9805 


CALL 


PRNTCHRA ;ac -> screen 


0D9F 


05 


DCR 


B 


ODAO 


C29C0D 


JNZ 
PRNTSEMI: 


PRNTBLNL 


0DA3 


El 


POP 


H 


ODA4 


CDAB03 


CALL 


SCANNXT ;bscan , 


0DA7 


C8 


RZ 




ODA8 


C3060D 


JMP 


PRTSTMN 
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ODAB 23 



ODAC 
ODAD 
ODAE 
ODB1 
0DB2 

ODB5 
0DB8 
ODBB 

ODBC 
ODBD 
ODBE 
ODBF 
ODC2 
ODC4 
0DC7 
0DC8 



D5 

01A70B 
C5 
CDOOOO 

CDOOOO 
CDOOOO 
14 

15 

C8 

OA 

CD9805 

FEOD 

CC510D 

03 

C3BC0D 



PRNTNUMS: 
INX 

PRNTMSG: 
PUSH 
PUSH 
LXI 
PUSH 
CALL 

PRNTSTRT: 
CALL 
CALL 
INR 

PRNTSTRL: 
DCR 
RZ 

LDAX 
CALL 
CPI 
CZ 
INX 
JMP 



;SEND STRING TO TRANSMITTER 



B 

D 

B.POPDEBCR 

B 

VALSTRGZ 

STRGRELA 

LDDCBMM 

D 

D 

B 

PRNTCHRA 

CR 

PRNTNULS 

B 

PRNTSTRL 



;STRING ENDS ON ZERO 



•ar -} srronn 



RETURN CURRENT POSITION ON OUTPUT LINE 



POSFCT: 
ODCB 3A9903 LDA 

FLOATA: 
ODCE 47 MOV 
ODCF AF XRA 
ODDO C30000 JMP 



CURSPOS ;POS FUNCTION 

B,A ;RETURN BYTE ANSWER 

A 

FLOATAB 







• PLOT STATEMENT 






PLTSTM: 




0DD3 


CDF10B 


CALL 


VALNUMBR 


0DD6 


CD100C 


CALL 


CINTEGER 


0DD9 


D5 


PUSH 


D 


ODDA 


CDA303 


CALL 


SCANNXTV 


ODDD 


2C 


DB 


M It 


ODDE 


CDF10B 


CALL 


VALNUMBR 


0DE1 


CD100C 


CALL 


CINTEGER 


0DE4 


D5 


PUSH 


D 


0DE5 


CDA303 


CALL 


SCANNXTV 


ODES 


2C 


DB 


1 


0DE9 


CDF10B 


CALL 


VALNUMBR 


ODEC 


CD100C 


CALL 


CINTEGER 


ODEF 


7B 


MOV 


A,E 


ODFO 


Dl 


POP 


D 


0DF1 


CI 


POP 


B 


0DF2 


E5 


PUSH 


H 






CALL 


SYSPLOT 


0DF3 


El 


POP 


H 


0DF4 


C9 


RET 





;bscan numbr 

;bscan (val) 
;bscan numbr 

;bscan (val) 
;bscan numbr 



;GET X-COORDINATE 



;GET Y-COORDINATE 



;GET OPERATION 
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INPUT/READ STATEMENT PROCESSORS 







MSGQUES: 




0DF5 


3F3F00 


DB 
MSGREDO: 


"77" ,0 


0DF8 


3F5246 


DB 


"7RED0 FROM START" ,CR,LF ,0 


ODFB 


444F20 






ODFE 


46524F 






OEOl 


4D2053 






0EO4 


544152 






0EO7 


540D0A 






OEOA 


00 


MSGEXTRA: 




OEOB 


3F4558 


DB 


"7EXTRA IGNORED", CR.LF.O 


OEOE 


545241 






0E11 


204947 






OF 14 


4E4F52 






OE17 


45440D 






OE1A 


OAOO 


; INPUT 
INPSTM: 




OE1C 


AF 


XRA 


A ; INPUT STATEMENT 


OE1D 


326503 


STA 
INPSTMRD: 


PRINTFLG ;TURN ON PRINTING 


0E20 


E5 


PUSH 


H ;SAVE SCAN IN CASE OF ERROR 


0E21 


0E4E 


MVI 


CLINESYZE/2 


0E23 


CD0804 


CALL 


SPACESTK 


0E26 


EB 


XCHG 




0E27 


2A7F03 


LHLD 


INPTBUFR ;SAVE ADDRESS OF CURRENT BUFFER 


0E2A 


E5 


PUSH 


H 


0E2B 


2160FF 


LXI 


H.O-LINESYZE-3 


0E2E 


39 


DAD 


SP 


0E2F 


F9 


SPHL 


;AND CREATE A NEW BUFFER 


0E30 


227F03 


SHLD 


INPTBUFR 


0E33 


EB 


XCHG 




OE34 


7E 


MOV 


A,M 


0E35 


FE22 


CPI 


1 (1 


0E37 


CAOOOO 


JZ 


INPSTMPR 


0E3A 


FEA3 


CPI 


KEYPRM 


0E3C 


11F600 


LXI 


D.MSGQUES+1 


0E3F 


C20000 


JNZ 


INPSTMIN 


OE42 


CDAB03 


CALL 
INPSTMPR: 


SCANNXT ;bscan + 


0E45 


CDOOOO 


CALL 


VALEXPR ;bscan expr ;OPTIONAL PROMPT. STRING 


0E48 


CDFBOB 


CALL 


CSTRING 


0E4B 


CDA303 


CALL 


SCANNXTV ;bscan (val) 


0E4E 


3B 


DB 


" ; " 


0E4F 


E5 


PUSH 


H 


0E50 


CDB500 


CALL 


PRNTSTRT 


0E53 


El 


POP 


H 


OE54 


11F70D 


LXI 
INPSTMIN: 


D.MSGQUES+2 


0E57 


E5 


PUSH 


H 


0E58 


CDOOOO 


CALL 


DATAINPT 
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0E5B C30000 



JMP 



REAINPFS 



READ 



REASTM: 
0E5E E5 PUSH 
0E5F 2A7D03 LHLO 
0E62 7E MOV 
0E63 B7 ORA 
0E64 CCOOOO CZ 



H ;READ STATEMENT 

CURDATAP 

A,M 

A 

DATASRCH ;GET DATA IF NECESSARY 



0E67 326403 
0E6A C30000 

0E6D CDA303 
0E70 2C 
0E71 E3 
0E72 7E 
0E73 FE2C 
0E76 C40000 

0E78 E3 
0E79 7E 
0E7A FEA4 
0E7C CAOOOO 
0E7F CDO0O0 
0E82 E3 
0E83 D5 
0E84 3A6B03 
0E87 F5 
0E88 CDOOOO 

0E8B Fl 

0E8C Dl 

0E8D COBBOB 

0E90 2B 

0E91 CDAB03 

0E94 CAOOOO 

0E97 FE2C 

0E99 C20000 



0E9C 
OE9D 
0E9E 
OEAl 
OEA4 
0EA5 
0EA8 
0EA9 
OEAA 
OEAD 
OEAE 
OEAF 
OEBO 



E3 

2B 

COAB03 

C26D0E 

Dl 

3A6403 

B7 

EB 

C26205 

D5 

F5 

B6 

210BOE 



REAINPFS: 
STA 
JMP 

REAINPLP: 
CALL 
DB 

XTHL 
MOV 
CPI 
CNZ 

REAINPLQ: 
XTHL 
MOV 
CPI 
JZ 

CALL 
XTHL 
PUSH 
LDA 
PUSH 
CALL 

REAINPLA: 
POP 
POP 
CALL 
DCX 
CALL 
OZ 
CPI 
JNZ 

REAINPCM: 
XTHL 
DCX 
CALL 
JNZ 
POP 
LDA 
ORA 
XCHG 
JNZ 
PUSH 
PUSH 
ORA 
LXI 

INPSTMER: 



;bscan (val) 



REAINPFL 
REAINPLQ 

SCANNXTV 

ii n 

A.M 

l( It 

DATAGET 



A.M 

KEYLINE ;LINE OPTION? 

INPSTMLN 

VARSCAN ;FIND NEXT VARIABLE TO BE INPUT 

;SAVE INPUT LIST POINTER 
D ;SAVE VARIABLE POINTER, 
TYPEFLG ;AND TYPE 
PSW 
REAINPDC ;DECODE INPUT 

PSW ;ASSIGN VALUE 

D 

ASSIGN 

H ;bscan - 

SCANNXT ;bscan , 

REAINPCM 

;DATA ITEMS SEPARTED BY COMMAS 
REAINPER 



H ;bscan - 

SCANNXT :bscan . 

REAINPLP 

D ;END OF VARLIST 

REAINPFL 

A 

RESDTPTR 

D 

PSW 

M 

H.MSGEXTRA 



;MORE VARIABLES? 
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0EB3 C4AC0D CNZ PRNTMSG 
0EB6 Fl POP PSW 
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INPSTMXT: 






0EB7 


Dl 


POP 


D ; RECOVER SCAN POINTER 




0EB8 


21AOO0 


LXI 


H.O+LINESYZE+3 




OEBB 


39 


DAD 


SP 




OEBC 


F9 


SPHL 


REALLOCATE BUFFER 




OEBD 


El 


POP 


H 




OEBE 


227F03 


SHLD 


INPTBUFR ;AND RESTORE ADDRESS OF 


OLD 


OEC1 


EB 


XCHG 






0EC2 


Dl 


POP 


D 




OEC3 


C8 


RZ 






OEC4 


FACFOA 


JM 


INPSTMBR ;BREAK TIME... 




0EC7 


EB 


XCHG 






0EC8 


C3200E 


JMP 
REAINPER: 


INPSTMRD ;OR REDO THE INPUT 




OECB 


3A6403 


LDA 


REAINPFL 




OECE 


B7 


ORA 


A 




OECF 


C2E905 


JNZ 


ERRDATA 




0ED2 


21F80D 


LXI 


H.MSGREDO 




OED5 


3C 


INR 


A 




OED6 


F5 


PUSH 


PSW 




OED7 


C3B30E 


JMP 

; SEARCH 
DATAGET: 


INPSTMER 
FOR DATA STATEMENT 




OEDA 


3A6403 


LDA 


REAINPFL 




OEDD 


B7 


ORA 


A ;READ OR INPUT? 




OEDE 


11F50D 


LXI 


D.MSGQUES 




OEE1 


CAOOOO 


JZ 
DATASRCH: 


DATAINPT ; INPUT 




OEE4 


CD690B 


CALL 


DATSTM ;LOOK FOR NEXT DATA STATEMENT 




0EE7 


B7 


ORA 


A 




0EE8 


C20000 


JNZ 


DATASRCK 




OEEB 


23 


INX 


H 




OEEC 


7E 


MOV 


A,M 




OEED 


23 


INX 


H 




OEEE 


B6 


ORA 


M 




OEEF 


23 


INX 


H 




OEFO 


1E61 


MVI 


E.ERRNOD-ERRN 




0EF2 


CAF105 


JZ 


ERRMSG 




0EF5 


5E 


MOV 


E,M 




OEF6 


23 


INX 


H 




0EF7 


56 


MOV 


D,M 




OEF8 


EB 


XCHG 






0EF9 


227B03 


SHLD 


CURLDATA 




OEFC 


EB 


XCHG 
DATASRCK: 






OEFD 


CDAB03 


CALL 


SCANNXT ;bscan . 




OFOO 


FE80 


CPI 


KEYDAT 




OF02 


C2E40E 


JNZ 


DATASRCH 




0F05 


C9 


RET 
DATAINPT: 
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OF06 CD6B07 


CALL 


INPTRQST 






0F09 C8 


RZ 




; INPUT 


OK, RETURN 


OFOA CI 


POP 


B 


; BREAK 


*** 


OFOB C3B70E 


JMP 
REAINPDC: 


INPSTMXT 






OFOE CDAB03 


CALL 


SCANNXT : 


;bscan 


t 


OF11 CDD903 


CALL 


TYPECHK 






OF14 7E 


MOV 


A.M 






0F15 CZOOOO 


JNZ 


DECODE 


;READ/INPUT A NUMBER 


OF18 FE2Z 


CPI 


f M 






OF1A CAOOOO 


JZ 


VALSTRGC 






OF1D 163A 


MVI 


D , " : " 






OF1F 062C 


MVI 


B , " , " 






OF21 2B 


DCX 


H 






0F22 C30000 


JMP 
T.NPSTMLN: 


VALSTRGS 




;READ/INPUT A STRING 


0F25 3A6403 


LDA 


REAINPFL 




;LINE OPTION VALID ONLY 


OF28 B7 


ORA 


A 


;FOR INPUT STATEMENT 


OF29 C2EF05 


JNZ 


ERRASN 






OF2C CDAB03 


CALL 


SCANNXT : 


;bscan 


+ 


OF2F CDOOOO 


CALL 


VARSCAN 






0F32 E3 


XTHL 








0F33 D5 


PUSH 


D 






OF34 3A6B03 


LDA 


TYPEFLG 






OF37 F5 


PUSH 


PSW 






0F38 0600 


MVI 


B.O 






0F3A CDOOOO 


CALL 


VALSTRGY 




;SWALLOW REST OF INPUT 


0F3D C38B0E 


JMP 


REAINPLA 




;AND ASSIGN TO STRING V, 
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; NEXT STATEMENT PROCESSOR 






NEXSTM: 






0F40 


110000 


LXI 
NEXSTML: 


D.O 


;NEXT STATEMENT 


0F43 


C40000 


CNZ 


VARSCAN 




0F46 


227703 


SHLD 


PROGCNTR 




0F49 


CDF909 


CALL 


FORCHK 


;VERIFY WE"RE IN FOR LOOP 


0F4C 


C20000 


JNZ 


ERRANF 




0F4F 


F9 


SPHL 




;BACK UP STACK 


0F50 


D5 


PUSH 


D 




0F51 


7E 


MOV 


A,M 


;RECOVER SIGN OF STEPSIZE 


0F52 


23 


INX 


H 




0F53 


F5 


PUSH 


PSW 




0F54 


D5 


PUSH 


D 




0F55 


CDOOOO 


CALL 


LDRGACMM 


•RECOVER STEP SIZ 


0F58 


E3 


XTHL 






0F59 


E5 


PUSH 


H 




0F5A 


CDOOOO 


CALL 


FLADDM 


; INCREMENT CONTROL VARIAB 


0F5D 


El 


POP 


H 




0F5E 


CDOOOO 


CALL 


LDMMAC 




0F61 


El 


POP 


H 




0F62 


CDOOOO 


CALL 


LDRGMM 




0F65 


E5 


PUSH 


H 




0F66 


CDOOOO 


CALL 


FLCMP 




0F69 


El 


POP 


H 




0F6A 


CI 


POP 


B 




0F6B 


90 


SUB 


B 




0F6C 


CDOOOO 


CALL 


LDRGMM 


;RECOVER LINE NUM8R, PROG 


0F6F 


CAOOOO 


JZ 


NEXSTMC 


;CHECK LIMIT 


0F72 


CD890B 


CALL 


TRACE 




0F75 


EB 


XCHG 






0F76 


227303 


SHLD 


CURLINE 




0F79 


60 


MOV 


H,B 




0F7A 


69 


MOV 


L,C 




0F7B 


C3800A 


JMP 
ERRANF: 


FORMARK 




0F7E 


1E54 


MVI 


E.ERRNNF 


-ERRN 


0F80 


C3F105 


JMP 
NEXSTMC: 


ERRMSG 




0F83 


F9 


SPHL 




END OF LOOP. . . 


0F84 


2A7703 


LHLD 


PROGCNTR 




0F87 


7E 


MOV 


A,M 




0F88 


FE2C 


CPI 


H If 




0F8A 


C2840A 


JNZ 


EXECUTEL 


;MORE INDICES? 


0F8D 


CDAB03 


CALL 


SCANNXT 


bscan , 


0F90 


CD430F 


CALL 


NEXSTML 
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■ EVALUATE 


AN EXPRESSION 






VALEXPR; 




0F93 


2B 


DCX 


H ;SCAN & EVALUATE AN EXPRE 


0F94 


1600 


MVI 
VALEXPRL: 


D.O ;INITIAL PRECEDENCE-0 


0F96 


D5 


PUSH 


D 


0F97 


0E01 


MVI 


C.l 


0F99 


CDD804 


CALL 


SPACESTK 


0F9C 


CDOOOO 


CALL 


VALPRMRY ;bscan prmry 


0F9F 


227103 


SHLD 
VALEXPRC: 


SCANPTR2 


0FA2 


2A7103 


LHLD 

VALEXPRD: 


SCANPTR2 


0FA5 


CI 


POP 


B PREVIOUS PRECEDENCE 


0FA6 


78 


MOV 


A,B 


0FA7 


FE70 


CPI 


PREDNUM 


0FA9 


D4F40B 


CNC 


CSINGLE 


OFAC 


7E 


MOV 


A,M 


OFAD 


1600 


MVI 
VALEXPRR: 


D.OOOH 


OFAF 


D6B4 


SUI 


KEYREL RELATION? 


OFB1 


DAOOOO 


JC 


VALEXPRO 


OFB4 


FE03 


CPI 


KEYFCT-KEYREL 


OFB6 


D20000 


JNC 


VALEXPRO 


0FB9 


FE01 


CPI 


1 ;YES 


OFBB 


17 


RAL 




OFBC 


AA 


XRA 


D ;CONVERT 0,1,2 TO 1,2,4 


OFBD 


BA 


CMP 


D 


OFBE 


57 


MOV 


D,A 


OFBF 


DAEF05 


JC 


ERRASN 


OFC2 


226F03 


SHLD 


SCANPTR1 


0FC5 


CDAB03 


CALL 


SCANNXT ;bscan , 


OFC8 


C3AF0F 


JMP 
VALEXPRO: 


VALEXPRR 


OFCB 


7A 


MOV 


A,D 


OFCC 


B7 


ORA 


A 


OFCD 


C20000 


JNZ 


VALREL 


OFDO 


7E 


MOV 


A.M 


OFD1 


226F03 


SHLD 


SCANPTR1 


OFD4 


D6AA 


SUI 


KEYOPR ;OPERATOR? 


OFD6 


D8 


RC 




0FD7 


FEOA 


CPI 


KEYREL-KEYOPR 


OFD9 


DO 


RNC 




OFDA 


5F 


MOV 


E,A ;YES 


OFDB 


CDD903 


CALL 


TYPECHK ;STRING OPERANDS? 


OFDE 


B3 


ORA 


E ;AND CATENATION OPERATOR? 


OFDF 


7B 


MOV 


A.E 


OFEO 


CAOOOO 


JZ 


VALCONCT ;YES 


OFE3 


83 


ADD 


E 


OFE4 


83 


ADD 


E 


0FE5 


5F 


MOV 


E,A 


0FE6 


218E00 


LXI 


H.OPRTABL 
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5-S 


0FE9 19 


DAD 


D 


OFEA 78 


MOV 


A, 8 


OFEB 56 


MOV 


D,M 


OFEC BA 


CMP 


D 


OFED DO 


RNC 




OFEE 23 


INX 


H 


OFEF CDF40B 


CALL 
VALEXPR2: 


CSINGLE 


0FF2 C5 


PUSH 


B ; 


0FF3 01A20F 


LXI 


B.VALEXPR 


0FF6 C5 


PUSH 


B 


0FF7 42 


MOV 


B,D 


0FF8 4B 


MOV 


C,E 


0FF9 CDOOOO 


CALL 


PUSHAC 


OFFC 50 


MOV 


D.B 


OFFD 59 


MOV 


E.C 


OFFE 4E 


MOV 


CM 


OFFF 23 


INX 


H 


1000 46 


MOV 


B,M 


1001 C5 


PUSH 


B 


1002 2A6F03 


LHLD 


SCANPTR1 


1005 C3960F 


JMP 


VALEXPRL 




; EVALUATE 


A RELATIO 




VALREL: 




1008 210000 


LXI 


H.RELOPR 


100B 3A6B03 


LDA 


TYPEFLG 


100E 07 


RLC 




100F 07 


RLC 




1010 07 


RLC 




1011 B2 


ORA 


D 


1012 5F 


MOV 


E,A 


1013 1664 


MVI 


D.PREDREL 


1015 78 


MOV 


A.B 


1016 BA 


CMP 


D 


1017 DO 


RNC 




1018 C3F20F 


JMP 
RELOPRXT: 


VALEXPR2 


101B 3C 


INR 


A ; 


101C 8F 


ADC 


A ; 


101D CI 


POP 


B ; 


101E AO 


ANA 


B 


101F C6FF 


ADI 


-1 


1021 9F 


SBB 


A 


1022 C30000 


JMP 


FLOATBYT 
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STACK OPERATION, 

C ; EVALUATE SECOND OPERAND 



;SCAN & EVALUATE RELATION 



MATCH RESULT OF COMPARISON 

-1,0,1 TO 1,2,4 

VERSUS RELATION TO BE TESTED 
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RELOPR: 




1025 


0000 


DW 
RELOPRC: 


RELOPRC ;COMPUTE RELATION 


1027 


79 


MOV 


A,C 


1028 


CI 


POP 


B 


1029 


Dl 


POP 


D 


102A 


F5 


PUSH 


PSW 


102B 


OF 


RRC 




102C 


OF 


RRC 




102D 


OF 


RRC 




102E 


E60F 


AN I 


OOFH 


1030 


CDE50B 


CALL 


COERCE 


1033 


211B10 


LXI 


H.RELOPRXT 


1036 


E5 


PUSH 


H 


1037 


C20000 


JNZ 


FLCMP ;NUMERIC COMPARISON? 


103A 


3E04 


MVI 


A.TYPESING ;NO, STRING 


mar 


3?fiR03 


STA 


TYPFFI G 


103F 


D5 


PUSH 


D 


1040 


CDOOOO 


CALL 


STRGRELA ;RELEASE TEMP 


1043 


01 


POP 


D 


1044 


4E 


MOV 


C,M 


1045 


23 


INX 


H 


1046 


C5 


PUSH 


B ;SAVE LENGTH 


1047 


4E 


MOV 


CM 


1048 


23 


INX 


H 


1049 


46 


MOV 


B,M 


104A 


C5 


PUSH 


B ;AND ADDRESS 


104B 


CDOOOO 


CALL 


STRGRELD ;RELEASE TEMP 


104E 


CDOOOO 


CALL 


LDDCBMM 


1051 


El 


POP 


H 


1052 


E3 


XTHL 




1053 


5D 


MOV 


E,L 


1054 


El 


POP 
RELOPRSL: 


H 


1055 


7B 


MOV 


A,E ;COMPARE CHARACTER BY 


1056 


B2 


ORA 


D 


1057 


C8 


RZ 




1058 


7B 


MOV 


A.E 


1059 


D601 


SUI 


1 


105B 


D8 


RC 




105C 


AF 


XRA 


A 


105D 


BA 


CMP 


D 


105E 


3C 


INR 


A 


105F 


DO 


RNC 




1060 


15 


DCR 


D 


1061 


ID 


DCR 


E 


1062 


OA 


LDAX 


B 


1063 


BE 


CMP 


M 


1064 


23 


INX 


H 


1065 


03 


INX 


B 


1066 


CA5510 


JZ 


RELOPRSL 


1069 


3F 


CMC 




106A 


C30000 


JMP 


CMPXT 



OF SECOND OPERAND 
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; EVALUATE 


A PRIMARY 






VALPRMRY: 




106D 


3E04 


MVI 


A.TYPESING ;SCAN & EVALUATE 


106F 


326B03 


STA 


TYPEFLG 


1072 


CDAB03 


CALL 


SCANNXT ;bscan , 


1075 


DAOOOO 


JC 


DECODE [NUMERIC CONSTANT? 


1078 


CDBB03 


CALL 


ALPHACHK 


107B 


DAOOOO 


JC 


VALVAR [VARIABLE? 


107E 


FEAA 


CPI 


KEYADD 


1080 


CA6D10 


JZ 


VALPRMRY 


1083 


FE2E 


CPI 


II If 


1085 


CAOOOO 


jz 


DECODE 


1088 


FEAB 


CPI 


KEYSUB 


108A 


CAOOOO 


JZ 


VALUMINS 


108D 


FE22 


CPI 


; STRING CONSTANT? 


108F 


CAOOOO 


JZ 


VALSTRGC 


1092 


FEA8 


CPI 


KEYNOT 


1094 


CAOOOO 


JZ 


VALUNOT 


1097 


FEA7 


CPI 


KEYFN ;DEFINED FUNCTION? 


1099 


CAOOOO 


JZ 


VALFCTD 


109C 


FE8B 


CPI 


KEYIF ;CONDITIONAL EXPRESSION? 


109E 


CAOOOO 


JZ 


VALCOND 


10A1 


D6B7 


SUI 


KEYFCT [INTRINSIC FUNCTION? 


10A3 


D20000 


JNC 
VALPARNS: 


VALFCTN 


10A6 


CDA303 


CALL 


SCANNXTV [bscan (val) 


10A9 


28 


DB 
VALPARN2: 


"(" 


10AA 


CD930F 


CALL 


VALEXPR ;bscan expr 


10AD 


CDA303 


CALL 


SCANNXTV [bscan (val) 


10B0 


29 


DB 


")" 


10B1 


C9 


RET 
VALUMINS: 




10B2 


167D 


MVI 


D.PREDUMIN EVALUATE UNARY 


10B4 


CD960F 


CALL 


VALEXPRL 


1087 


2A7103 


LHLD 


SCANPTR2 


10BA 


E5 


PUSH 


H 


10BB 


CDOOOO 


CALL 
VALRETNM: 


CMACCS 


10BE 


CDF40B 


CALL 


CS INGLE 


10C1 


El 


POP 


H 


10C2 


C9 


RET 
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EVALUATE 


A VARIABLE 




VALVAR: 




10C3 


CO0000 


CALL 


VARSCAN ;SCAN & EVALUATE VARIABLE 


10C6 


E5 


PUSH 


H 


10C7 


D5 


PUSH 


D 


IOCS 


EB 


XCHG 




10C9 


1E01 


MVI 


E.ERRNUV-ERRN 


10CB 


C2F105 


JNZ 


ERRMSG 


10CE 


229303 


SHLD 


ACCUMLTR 


10D1 


CDD903 


CALL 


TYPECHK 


10O4 


EB 


XCHG 




10D5 


219303 


LXI 


H, ACCUMLTR 


10D8 


C40000 


CNZ 


COPYVAL 


10DB 


Dl 


POP 


D 


10DC 


El 


POP 


H 


10DD 


C9 


RET 








EVALUATE 


CONDITIONAL EXPRESSION 




\ 


/ALCOND: 




10DE 


CDAB03 


CALL 


SCANNXT ;bscan , EVAL CONDITIONAL EXPRESSION 


10E1 


CDF10B 


CALL 


VALNUMBR ;bscan numbr 


10E4 


CDA303 


CALL 


SCANNXTV ;bscan (val) 


10E7 


AO 


DB 


KEYTHEN 


10E8 


CDOOOO 


CALL 


SIGNACC 


10EB 


CAOOOO 


JZ 


VALCONDF 


10EE 


CD930F 


CALL 


VALEXPR ;bscan expr ;TRUE, EVALUATE THEN P 


10F1 


1601 

\ 


MVI 
/ALCNDTL: 


D.l 


10F3 


0E82 


MVI 


C.KEYEND 


10F5 


CD700B 


CALL 


SCAN2KEY ;SKIP ELSE PORTION 


10F8 


CDA303 


CALL 


SCANNXTV ;bscan (val) 


10FB 


82 


DB 


KEYEND 


10FC 


15 


DCR 


D 


10FD 


C2F310 


JNZ 


VALCNDTL 


1100 


C9 

\ 


RET 
/ALCONDF: 




1101 


1601 

\ 


MVI 
/ALCNDFL: 


D.l 


1103 


0E8C 


MVI 


CKEYELS ;FALSE, SKIP THEN PORTION 


1105 


CD700B 


CALL 


SCAN2KEY 


1108 


CDA303 


CALL 


SCANNXTV ;bscan (val) 


hob 


8C 


DB 


KEYELS 


hoc 


15 


DCR 


D 


HOD 


C20311 


JNZ 


VALCNDFL 


1110 


CD930F 


CALL 


VALEXPR ;bscan expr EVALUATE ELSE PORTION 


1113 


CDA303 


CALL 


SCANNXTV ;bscan (val) 


1116 


82 


DB 


KEYEND 


1117 


C9 


RET 
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1118 
111A 
111B 
111C 
HID 
1120 
1121 
1123 
1126 
1129 
112A 
112D 
1130 
1131 
1134 
1135 



0600 

07 

4F 

C5 

CDAB03 

79 

FE2F 

DA0000 

CDA303 

28 

CD930F 

CDFBOB 

EB 

2A9303 

E3 

C30000 



EVALUATE INTRINSIC FUNCTION 



VALFCTN: 
MVI 
RLC 
MOV 
PUSH 
CALL 
MOV 
CPI 
JC 

CALL 
OB 

CALL 
CALL 
XCHG 
LHLD 
XTHL 
JMP 



B.OOOH 



;Scan & EVALUATE INTRINSIC FUNCTION CALL 



C,A 

B 

SCANNXT ;bscan , 

A,C 

KEYLFT-KEYFCT*2-1 

VALFCTAR 

SCANNXTV ;bscan (val) 

"(" 

VALEXPR ;bscan expr 

CSTRING 



LEFTS, MID$, or RIGHTS 



ACCUMLTR 



;PUSH STRING ONTO STACK 



VALFCTLK 



1138 CDA610 

113B E3 

113C 11BE10 

113F D5 

1140 01AC00 

1143 09 

1144 4E 

1145 23 

1146 66 

1147 69 

1148 E9 



VALFCTAR: 
CALL 
XTHL 
LXI 
PUSH 

VALFCTLK: 
LXI 
DAD 
MOV 
INX 
MOV 
MOV 
PCHL 



VALPARNS 

D.VALRETNM 

D 



B.FCTTABL 

B 

C,M 

H 

H,M 

L.C 

;CALL FUNCTION 



; EVALUATE ARGUMENT TO FUNCTION 



;BRANCH TO APPROPRIATE ROUTINE 
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PROCESS STRING CONSTANT 







VALSTRGN : 




1149 


CD0OO0 


CALL 
VALSTRGZ: 


ENCODE 


114C 


0680 


MVI 


B.080H 


114E 


2B 


OCX 


H 


114F 


C30000 


JMP 
VALSTRGC : 


VALSTRGY 


1152 


0622 


MVI 
VALSTRGY: 


B,'" 


1154 


50 


MOV 
VALSTRGS: 


D,B 


1155 


E5 


PUSH 


H 


1156 


OEFF 


MVI 
VALSTRGL: 


C.-l 


1158 


23 


INX 


H 


1159 


7E 


MOV 


A,M 


115A 


OC 


INR 


C 


115B 


B7 


ORA 


A 


115C 


CAOOOO 


JZ 


VALSTRGE 


115F 


BA 


CMP 


D 


1160 


CAOOOO 


JZ 


VALSTRGE 


1163 


B8 


CMP 


B 


1164 


C25811 


JNZ 
VALSTRGE: 


VALSTRGL 


1167 


FE22 


CPI 


1 It 


1169 


CCAB03 


CZ 


SCANNXT 


116C 


E3 


XTHL 




116D 


23 


INX 


H 


116E 


EB 


XCHG 




116F 


79 


MOV 


A,C 


1170 


CDOOOO 


CALL 


STRSTCDS 


1173 


EB 


XCHG 




1174 


CDADOC 


CALL 


STRGTEST 


1177 


3F 


CMC 




1178 


IF 


RAR 




1179 


BO 


ORA 


B 


117A 


F40000 


CP 


STRGSTOR 



ENCODE ;CREATE STRING FROM NUMBER 



;SCAN & DECODE A STRING CONSTANT 



;FIND STRING LENGTH 



; LOCATE STRING 



;MAKE A COPY OF CERTAIN BUFFERS 
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1170 116C03 



1180 
1181 
1183 
1186 
1189 
118C 
1180 
1190 
1193 
1196 
1197 
1198 
119B 
119E 
119F 



D5 

3E03 

326B03 

2A8F03 

229303 

EB 

2A9103 

CDC104 

DA0000 

EB 

01 

CDOOOO 

228F03 

El 

C9 



ALLOCATE STRING TEMPORARY 



STRGALOT: 
LXI 

STRGALOU: 
PUSH 
MVI 
STA 
LHLD 
SHLO 
XCHG 
LHLD 
CALL 
JC 

XCHG 
POP 
CALL 
SHLD 
POP 
RET 



ERRAST: 
11A4 1E92 MVI 
11A6 C3F105 JMP 



D.STRGTMPL 

D 

A.TYPESTRG 

TYPEFLG 

STRGTMPP 

ACCUMLTR 

STRGTLIM 
CMHLLTOE 
ERRAST 



;USE CURRENT DESCRIPTOR 

;RETURN STRING RESULT 

;IN A NEW STRING TEMPORARY 

;ANY MORE TEMPORARIES? 



;GET DESCRIPTOR 
COPYVAL -COPY IT 
STRGTMPP 
H 



STRGALOV: 
11A0 E5 PUSH H 
11A1 C38011 JMP STRGALOU 



E.ERRNST-ERRN 
ERRMSG 
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RELEASE 


STRING RESOURCES 






STRGRELA: 






11A9 


2A9303 


LHLD 


ACCUMLTR 






STRGRELH: 






11 AC 


EB 


XCHG 








STRGRELD: 






HAD 


COOOOO 


CALL 


STRGRELT 


; RELEASE TEMP 


HBO 


EB 


XCHG 






11B1 


CO 


RNZ 


;NOT OUR 


BOY 


11B2 


D5 


PUSH 


D 




11B3 


50 


MOV 


D,B 




11B4 


59 


MOV 


E.C 




11B5 


IB 


OCX 


D 




11B6 


4E 


MOV 


CM 




11B7 


2A8B03 


LHLD 


STRGFRFF 




11BA 


CDC104 


CALL 


CMHLLTDE 




11BD 


C27008 


JNZ 


POPHLRET 




11CO 


47 


MOV 


B,A ;RELEASE 


STRING SPACE 


11C1 


09 


DAD 


B 




11C2 


228B03 


SHLD 


STRGFREE 




11C5 


El 


POP 


H 




11C6 


C9 

< 


RET 

RELEASE 
5TRGRELT: 


STRING TEMPORARY 




11C7 


2A8F03 


LHLD 


STRGTMPP 


; RELEASE STRI 


11CA 


2B 


DCX 


H 




11CB 


46 


MOV 


B,M 




11CC 


2B 


DCX 


H 




11CD 


4E 


MOV 


C,M 




11CE 


2B 


DCX 


H 




11CF 


CDC104 


CALL 


CMHLLTDE 




11DZ 


CO 


RNZ 






11D3 


228F03 


SHLD 


STRGTMPP 


;RELEASE STRI 


11D6 


C9 


RET 







basic. LST 



5-Sep-78 14:29:54 



Page 74 







; EVALUATE 


A CATENATION 






VALCONCT: 




11D7 


C5 


PUSH 


B EVALUATE A CONCATENATION 


11D8 


E5 


PUSH 


H 


11D9 


2A9303 


LHLD 


ACCUMLTR ;SAVE FIRST OPERAND, 


11DC 


E3 


XTHL 




HDD 


CD6D10 


CALL 


VALPRMRY ;bscan prmry ; EVALUATE S 


11E0 


E3 


XTHL 




11E1 


CDFBOB 


CALL 


CSTRING 


11E4 


7E 


MOV 


A,M ;ADD LENGTHS, 


11E5 


E5 


PUSH 


H 


11E6 


2A9303 


LHLD 


ACCUMLTR 


11E9 


E5 


PUSH 


H 


11EA 


86 


ADD 


M 


11EB 


1E3B 


MVI 


F, ERRNLS-ERRN 


11ED 


DAF105 


JC 


ERRMSG 


11FO 


CDOOOO 


CALL 


STRNGEN ;AND ALLOCATE OUTPUT STRING 


11F3 


01 


POP 


D 


11F4 


CDAD11 


CALL 


STRGRELD ; RELEASE STRING TEMPORARIES 


11F7 


E3 


XTHL 




11F8 


CDAC11 


CALL 


STRGRELH 


11FB 


E5 


PUSH 


H 


HFC 


2A6D03 


LHLD 


STRGTMPA ;COPY STRINGS TO OUTPUT STR 


11FF 


EB 


XCHG 




1200 


CDOOOO 


CALL 


VALCONCP 


1203 


CDOOOO 


CALL 


VALCONCP 


1206 


21A50F 


LXI 


H.VALEXPRD 


1209 


E3 


XTHL 




120A 


E5 


PUSH 


H 


120B 


C37D11 


JMP 
VALCONCP: 


STRGALOT 


120E 


El 


POP 


H ;COPY STRING FOR CATENATION 


120F 


E3 


XTHL 




1210 


7E 


MOV 


A,M ;GET LENGTH. 


1211 


23 


INX 


H 


1212 


4E 


MOV 


CM ;ADDRESS OF STRING 


1213 


23 


INX 


H 


1214 


46 


MOV 


B,M 


1215 


6F 


MOV 
COPYSTRG: 


L,A 


1216 


2C 


INR 
COPYSTRL: 


L ;COPY A STRING OF LENGTH L 


1217 


2D 


DCR 


L ;FROM BC TO DE 


1218 


C8 


RZ 




1219 


OA 


LDAX 


B 


121A 


12 


STAX 


D 


121B 


03 


INX 


B 


121C 


13 


INX 


D 


1210 


C31712 


JMP 


COPYSTRL 
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1220 2B 

1221 CDAB03 

1224 C8 

1225 CDA303 

1228 2C 

1229 012012 
122C C5 
122D 3E80 
122F C30000 



DIMENSION STATEMENT PROCESSING 



DIMSTML: 
DCX 
CALL 
RZ 

CALL 
DB 

DIMSTM: 
LXI 
PUSH 
MVI 
JMP 



H 

SCANNXT ;bscan , 

SCANNXTV 

tl II 



B.OIMSTML 
B 

A.080H 
VARSCANI 



;bscan (val) 
;DIM STATEMENT 



SCAN A VARIABLE NAME 



1232 AF 

1233 326A03 

1236 0600 



1238 
123B 
123E 
123F 
1240 
1242 
1244 
1247 
124A 
124D 



CDBB03 

D2EF05 

BO 

47 

0E3F 

1604 

COAB03 

DA0000 

CDBB03 

D20000 



1250 4F 

1251 CDAB03 
1254 DA5112 
1257 CDBB03 
125A DA5112 

125D D624 

125F C20000 

1262 1603 

1264 CDAB03 



1267 78 

1268 D640 
126A 07 
126B 07 
126C 47 
126D 79 
126E D630 



VARSCAN: 
XRA 

VARSCANI: 
STA 
MVI 

VARSCNDF: 
CALL 
JNC 
ORA 
MOV 
MVI 
MVI 
CALL 
JC 

CALL 
JNC 

VARSCAND: 
MOV 

VARSKIPL: 
CALL 
JC 

CALL 
JC 

VARSCANS: 
SUI 
JNZ 
MVI 
CALL 

VARNAME: 
MOV 
SUI 
RLC 
RLC 
MOV 
MOV 
SUI 



;SCAN FOR VARIABLE 



MATDMFLG 
B.OUYPEDEF 

ALPHACHK 

ERRASN 

B 

B.A 

C,"?" 

D.TYPESING 

SCANNXT ;bscan 

VARSCAND 

ALPHACHK 

VARSCANS 

C.A 

SCANNXT ;bscan 
VARSKIPL 
ALPHACHK 
VARSKIPL 



;ENTRY TO SCAN FOR DEFINED FCT 



;ASSUME NUMERIC VARIABLE 



;SKIP EXTRA ALPHANUMERIC 
;CHARACTERS IN NAME 



"$" ;STRING VARIABLE? 

VARNAME 

D.TYPESTRG ;YES 

SCANNXT ;bscan , 



A,B 



B.A 
A,C 
"0" 



TRANSLATE IDENT TO INTERNAL FORM 
DEF/VARIABLE IS FIRST BIT 
FIRST CHAR IS NEXT FIVE BITS 



;SECOND CHAR IS NEXT SIX BITS 
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1270 OF 

1271 OF 

1272 OF 

1273 OF 

1274 4F 

1275 A8 

1276 E603 

1278 A8 

1279 47 
127A 7A 
127B 326B03 
127E A9 
127F E60F 

1281 A9 

1282 4F 



RRC 
RRC 
RRC 
RRC 
MOV 
XRA 
ANI 
XRA 
MOV 
MOV 
STA 
XRA 
ANI 
XRA 
MOV 



C,A 

B 

003H 

B 

B,A 

A.O 

TYPEFLG 

C 

OOFH 

C 

C,A 



;PACK THREE BYTES INTO TWO 



;TYPE IS LAST FOUR BITS 



1283 3A6703 LDA SCANPFLG 

1286 86 ADD M 

1287 FE28 CPI "(" ;SUBSCRIPTED? 
1289 CA0000 JZ MATSCANP 

128C FE5B CPI "[" ;BY LEFT BRACKET? 

128E CA0000 JZ MATSCANB 

1291 AF XRA A 

1292 326703 STA SCANPFLG 
1295 E5 PUSH H 



LOOK UP VARIABLE IN TABLE 



1296 2A8303 



1299 
129A 
129D 
12A0 
12A3 
12A4 
12A5 
12A6 
12A7 
12AA 
12AB 

12AC 
12AD 
12B0 
12B1 
12B3 
12B4 
12B6 
12B7 



EB 

2A8503 

CDC104 

CAOOOO 

1A 

6F 

B9 

13 

C20000 

1A 

88 

13 

CAOOOO 

7D 

E60F 

6F 

2600 

19 

C39912 



LHLD 
VARSCANT: 
XCHG 
LHLD 
CALL 
JZ 

LDAX 
MOV 
CMP 
INX 
JNZ 
LDAX 
CMP 
VARSCANM: 
INX 
JZ 
MOV 
ANI 
MOV 
MVI 
DAD 
JMP 



VARIABLE 



MATTABLE 

CMHLLTDE 

VARSCANF 

D 

L.A 

C 

D 

VARSCANM 

D 

B 



VARSCANX 

A.L 

OOFH 

L.A 

H,0 

D 

VARSCANT 



;LOOK THROUGH VARIABLE TABLE 



;ADDRESS NEXT ENTRY 



VARSCANF: 

12BA C5 PUSH B 

12BB 79 MOV A.C 

12BC E60F ANI OOFH 



;NOT FOUND, CREATE ENTRY 
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12BE C602 


AD I 


2 


12C0 4F 


MOV 


C,A 


1ZC1 0600 


MVI 


B,0 


12C3 EB 


XCHG 




12C4 2A8703 


LHLD 


FREELIMT 


12C7 E5 


PUSH 


H 


12C8 09 


DAD 


B 


12C9 CI 


POP 


B 


12CA E5 


PUSH 


H 


12CB CDC704 


CALL 


COPYCHK ;M0VE ARRAYS FOR SPACE 


12CE El 


POP 


H 


12CF 228703 


SHLD 


FREELIMT 


12D2 60 


MOV 


H,8 


12D3 69 


MOV 


L,C 


12D4 228503 


SHLD 
VARALLOC: 


MATTABLE ; ALLOCATE, ZERO ENTRY 


12D7 2B 


DCX 


H 


12D8 3600 


MVI 


M.OOOH 


12DA CDC104 


CALL 


CMHLLTDE 


12DD C2D712 


JNZ 


VARALLOC 


12E0 Dl 


POP 


D 


12E1 73 


MOV 


M,E 


12E2 23 


INX 


H 


12E3 72 


MOV 


M,D 


12E4 23 


INX 


H 


12E5 EB 


XCHG 


;EXIT VARIABLE SCAN 


12E6 B3 


ORA 
VARSCANX: 


E ;NZ=VAR NOT FOUND, CREATED 


12E7 El 


POP 


H ;HL=SCAN POINTER 


12E8 C9 


RET 


;BE=VARIABLE REFERENCE 




; LOOK UP 


ARRAY IN TABLE 




MATSCANB: 




12E9 C601 


ADI 
MATSCANP: 


']-'[+'(-') ;(got me?) 


12EB C601 


ADI 


')"'{ 


12ED E5 


PUSH 


H ;SCAN SUBSCRIPT OF VARIABLE 


12EE 2A6A03 


LHLD 


MATDMFLG 


12F1 B5 


ORA 


L 


12F2 6F 


MOV 


L,A 


12F3 E3 


XTHL 


;SAVE DIMFLAG, CLOSE CHAR. TYPE 


12F4 1600 


MVI 
MATSCANL: 


D.000H 


12F6 D5 


PUSH 


D ;SCAN SUBSCRIPT LIST 


12F7 C5 


PUSH 


B 


12F8 CDAB03 


CALL 


SCANNXT ;bscan , 


12FB CD070C 


CALL 


VALINTDE EVALUATE SUBSCRIPT 


12FE CI 


POP 


B 


12FF Fl 


POP 


PSW 


1300 EB 


XCHG 




1301 E3 


XTHL 




1302 E5 


PUSH 


H 


1303 EB 


XCHG 




1304 3C 


INR 


A ; COUNT NUMBER OF SUBSCRIPTS 
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1305 57 


MOV 


D,A 




1306 7E 


MOV 


A,M 




1307 FEZC 


CPI 


II tl 




1309 CAF612 


JZ 


MATSCANL 




130C E3 


XTHL 






130D 226A03 


SHLD 


MATDMFLG 


; RESTORE DIMFLAG, TY 


1310 7D 


MOV 


A,L 




1311 El 


POP 


H 




1312 AE 


XRA 


M 




1313 87 


ADD 


A ;CHECK 


FOR CORRECT CLOSER 


1314 C2EF05 


JNZ 


ERRASN 




1317 227103 


SHLD 


SCANPTR2 




131A D5 


PUSH 


D 




131B 2A8503 


LHLD 


MATTABLE 


;LOOK FOR NAME IN 


131E C30000 


JMP 
MATSCANN: 


MATSCANO 


;MAT VARIABLE TABLE 


1321 19 


DAD 
MATSCANO: 


D 




1322 EB 


XCHG 






1323 2A8703 


LHLD 


FREELIMT 




1326 EB 


XCHG 






1327 CDC104 


CALL 


CMHLLTDE 




132A CA0OO0 


JZ 


MATSCANC 




132D 7E 


MOV 


A.M 




132E B9 


CMP 


C 




132F 23 


INX 


H 




1330 C20000 


JNZ 


MATSCANM 




1333 7E 


MOV 


A.M 




1334 B8 


CMP 
MATSCANM: 


B 




1335 23 


INX 


H 




1336 5E 


MOV 


E.M 




1337 23 


INX 


H 




1338 56 


MOV 


D.M 




1339 23 


INX 


H 




133A C22113 


JNZ 


MATSCANN 




1330 3A6A03 


LDA 


MATDMFLG 


;NAME FOUND 


1340 B7 


ORA 


A 




1341 1E10 


MVI 


E.ERRNDD-ERRN 




1343 FAF105 


JM 


ERRMSG 




1346 Fl 


POP 


PSW ;RIGHT 


NUMBER OF SUBSCRIPTS? 


1347 BE 


CMP 


M 




1348 CAOOOO 


JZ 
ERRABS: 


MATSCANI 




134B 1E9F 


MVI 


E.ERRNBS-ERRN 




134D C3F105 


JMP 
MATSCANC: 


ERRMSG 




1350 79 


MOV 


A,C ;NAME NOT FOUND, CREATE NEW 


1351 E60F 


ANI 


OOFH 




1353 5F 


MOV 


E,A 




1354 1600 


MVI 


D,0 




1356 71 


MOV 


M,C 




1357 23 


INX 


H 




1358 70 


MOV 


M,B 




1359 23 


INX 


H 
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135A Fl 

135B 326903 

135E 4F 

135F CDD804 

1362 226F03 

1365 23 

1366 23 

1367 41 

1368 70 

1369 23 

136A 3A6A03 

136D 87 

136E 78 

136F 010800 

1372 F20000 

1375 CI 

1376 03 



1377 
1378 
1379 
137A 
137B 
137C 
137D 
1380 
1381 
1382 
1383 
1384 
1387 
1388 
1389 
138A 
138B 
138E 
1391 

1394 
1395 
1397 
139A 
139D 
139E 
139F 
13A2 
13A3 
13A6 
13A7 
13A8 
13A9 
13AA 
13AD 
13AE 
13AF 



71 

23 

70 

23 

F5 

E5 

CD0000 

EB 

El 

CI 

05 

C26A13 

42 

4B 

EB 

19 

DA4B13 

CDE504 

228703 

2B 

3600 

CDC104 

C29413 

03 

67 

3A6A03 

B7 

3A6903 

6F 

29 

09 

EB 

2A6F03 

73 

23 

72 



POP 

STA 

MOV 

CALL 

SHLO 

INX 

INX 

MOV 

MOV 

INX 

MATSCNSB: 
LDA 
ORA 
MOV 
LXI 
JP 
POP 
INX 

MATSCNSD: 
MOV 
INX 
MOV 
INX 
PUSH 
PUSH 
CALL 
XCHG 
POP 
POP 
DCR 
JNZ 
MOV 
MOV 
XCHG 
DAD 
JC 

CALL 
SHLD 

MATSCANZ: 
DCX 
MVI 
CALL 
JNZ 
INX 
MOV 
LDA 
ORA 
LDA 
MOV 
DAD 
DAD 
XCHG 
LHLD 
MOV 
INX 
MOV 



PSW 

MATSCCNT 

C.A 

SPACESTK 

SCANPTR1 

H 

H ;plus 

B,C 

M.B 

H 



MATDMFLG 

A 

A.B 

B.ll [DEFAULT RANGE 

MATSCNSD 

B 

B 



M.C 

H 

M,B 

H 

PSW 

H 

MUL16 



;SET SUBSCRIPT RANGES 



'0-10 



;UPDATE ARRAY SIZE 



H 

B 

B 

MATSCNSB 

B,D 

C,E 

D 

ERRABS 
SPACECHK 
FREELIMT 

H ; 

M.000H 

CMHLLTDE 

MATSCANZ 

B ; 

H,A 

MATDMFLG 

A 

MATSCCNT 

L,A 

H 

B 

SCANPTR1 

M,E 

H 

M,D 



; ALLOCATE ARRAY, 



AND ZERO 



SAVE ENTRY SIZE 



;AT BEGINNING OF ENTRY 



basic. LST 
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13B0 23 


INX 


H 




13B1 FAOOOO 


JM 
MATSCANI: 


MATSCANX 


;DIM ONLY? 


13B4 23 


INX 


H 


INITIALIZE SUBSCRIPT 


13B5 010OOO 


LXI 


B,G 




13B8 C30000 


JMP 
MATSCANR: 


MATSCANS 




13BB El 


POP 
MATSCANS: 


H 


;COMPUTE SPECIFIC REFER 


13BC 5E 


MOV 


E.M 




13BD 23 


INX 


H 




13BE 56 


MOV 


D.M 




13BF 23 


INX 


H 




13C0 E3 


XTHL 






13C1 F5 


PUSH 


PSW 




13C2 CDC104 


CALL 


CMHLLTDE 




13C5 D24B13 


JNC 


ERRABS 




13C8 E5 


PUSH 


H 




13C9 CDOOOO 


CALL 


MUL16 




13CC Dl 


POP 


D 




13CD 19 


DAD 


D 




13CE Fl 


POP 


PSW 




13CF 3D 


DCR 


A 




13D0 44 


MOV 


B.H 




13D1 4D 


MOV 


C.L 




1302 C2BB13 


JNZ 


MATSCANR 




13D5 3A6B03 


LDA 


TYPEFLG 




13D8 5F 


MOV 


E,A 




13D9 1600 


MVI 


D,0 




13DB CDOOOO 


CALL 


MUL16 


MULTIPLY BY ENTRY SIZE 


13DE CI 


POP 


B 




13DF 09 


DAD 


B 




13E0 EB 


XCHG 
MATSCANX: 






13E1 2A7103 


LHLD 


SCANPTR2 




13E4 CDAB03 


CALL 


SCANNXT 


;bscan , 


13E7 BF 


CMP 


A 




13E8 C9 


RET 
MUL16: 






13E9 210000 


LXI 


H.O 


MULTIPLY BC«DE GIVING 


13EC 78 


MOV 


A,B 




13ED Bl 


ORA 


C 




13EE C8 


RZ 






13EF 3E10 


MVI 
MUL16LP: 


A.16 




13F1 29 


DAD 


H 




13F2 DA4B13 


JC 


ERRABS 




13F5 EB 


XCHG 






13F6 29 


DAD 


H 




13F7 EB 


XCHG 






13F8 D20000 


JNC 


MUL16XT 




13FB 09 


DAD 


B 




13FC DA4B13 


JC 
MUL16XT: 


ERRABS 




13FF 3D 


DCR 


A 
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1400 CZF113 JNZ MUL16LP 
1403 C9 RET 



basic. LST 
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• USER-DEFINED FUNCTION DEFINITION 






DEFSTM: 






1404 


CDOOOO 


CALL 


SCANFNN 


;DEF STATEMENT 


1407 


E5 


PUSH 


H 


;CHECK IF IN DIRECT MODE 


1408 


2A7303 


LHLD 


CURLINE 


;Z-DIRECT MODE 


140B 


23 


INX 


H 




140C 


7C 


MOV 


A.H 




HOD 


B5 


ORA 


L 




140E 


El 


POP 


H 




140F 


CAOOOO 


JZ 


ERRAID 




1412 


EB 


XCHG 




;SAVE REFERENCE TO DEFINIT 


1413 


73 


MOV 


M.E 




1414 


23 


INX 


H 




1415 


72 


MOV 


M,D 




1416 


EB 


XCHG 






1417 


7E 


MOV 


A.M 




1418 


FE28 


CPI 
DEFSTML: 


"(" 


;CHECK FOR VARLIST 


141A 


C2690B 


JNZ 


DATSTM 




141D 


CDAB03 


CALL 


SCANNXT 


;bscan , 


1420 


CD3212 


CALL 


VARSCAN 


;DEFINE VARIABLES IN LIST 


1423 


7E 


MOV 


A.M 




1424 


FE2C 


CPI 


" . " 




1426 


C31A14 


JMP 


DEFSTML 








; USER-DEFINED FUNCTION EVALUATION 






VALFCTD: 






1429 


CDOOOO 


CALL 


SCANFNN 


SCAN ;& EVALUAT 


142C 


3A6B03 


LDA 


TYPEFLG 


;SAVE TYPE OF FUNCTION 


142F 


B7 


ORA 


A 




1430 


F5 


PUSH 


PSW 




1431 


E5 


PUSH 


H 


;SAVE CALL ARGUMENTS 


1432 


EB 


XCHG 






1433 


7E 


MOV 


A.M 




1434 


23 


INX 


H 




1435 


66 


MOV 


H.M 


;FETCH FUNCTION DEFINITION 


1436 


6F 


MOV 


L,A 




1437 


B4 


ORA 


H 




1438 


1EB5 


MVI 


E.ERRNUF 


-ERRN 


143A 


CAF105 


JZ 


ERRMSG 


;MUST BE DEFINED . . . 
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143D 7E 


MOV 


A,M 


143E FE28 


CPI 


"(" 


1440 C20000 


JNZ 


VALFCTNA 


1443 CDAB03 


CALL 


SCANNXT 


1446 E3 


XTHL 




1447 CDA303 


CALL 


SCANNXTV 


144A 28 


DB 


l> / II 


144B E3 


XTHL 




144C C30000 


JMP 


VALFCTDM 



PARAMETERS NEEDED? 

;APPARENTLY NOT 
;bscan , 

;bscan (val) 
;MUST BE PARAMETERS IN CALL 



ARGUMENT SCANNING 



144F 


CDA303 


CALL 


1452 


2C 


DB 


1453 


E3 


XTHL 


1454 


CDA303 


CALL 


1457 


2C 


DB 
VALFCTDM 


1458 


0EO4 


MVI 


145A 


CDD804 


CALL 


145D 


3EAB 


MVI 


145F 


326703 


STA 


1462 


CDC310 


CALL 


1465 


226F03 


SHLD 


1468 


El 


POP 


1469 


227103 


SHLD 


146C 


CDD903 


CALL 


146F 


CAOOOO 


JZ 


1472 


CDOOOO 


CALL 


1475 


E5 


PUSH 


1476 


C30000 


OMP 
VALFCTPS 


1479 


CDAOll 


CALL 


147C 


AF 


XRA 


147D 


IB 


DCX 


147E 


IB 


DCX 


147F 


IB 


DCX 


1480 


12 


STAX 


1481 


2A9303 


LHLD 


1484 


E5 


PUSH 


1485 


D5 


PUSH 



SCANNXTV ;bscan (val) 

; COMMAS BETWEEN ARGUMENTS 

SCANNXTV ;bscan (val) 

;AND BETWEEN PARAMETERS 

C,4 ;VERIFY SPACE ON STACK 

SPACESTK 

A.SCANPFLD ;SCAN NEXT PARAMETER 

SCANPFLG 

VALVAR ;GET CURRENT VALUE OF PARAMETER 

SCANPTR1 ;SAVE PARAMETER SCAN 

H 

SCANPTR2 ;SAVE ARGUMENT SCAN 

TYPECHK 

VALFCTPS ;PUSH STRINGS DIFFERENTLY 

PUSHAC1 ;PUSH NUMERIC ACCUMULATOR 

H ;SAVE VARIABLES ADDRESS 

VALFCTPT 

STRGALOV ;COPY DESCRIPTOR TO TEMPORARY 

A ELIMINATE ORIGINAL DESCRIPTOR 

D 

D 

D ;plus 3 

D 

ACCUMLTR ;GET ADDRESS OF DESCRIPTOR 

H 

D ;PUT IT BACK HERE LATER 
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1486 
1489 
148A 
148B 
148C 
148D 
1490 
1491 
1494 
1497 
1498 
149A 
149D 
14A0 
14A1 
1AAA 



3A6B03 

37 

Dl 

D5 

F5 

2A6F03 

E5 

2A7103 

CDB10B 

7E 

FE29 

C24F14 

CDAB03 

E3 

CDA303 

?Q 



VALFCTPT: 
LDA 
STC 
POP 
PUSH 
PUSH 
LHLD 
PUSH 
LHLD 
CALL 
MOV 
CPI 
JNZ 
CALL 
XTHL 
CALL 
tlR 



TYPEFLG ;SAVE TYPE OF PARAMETER 
;GET COPY OF ADDRESS 



D 

D 

PSW 

SCANPTR1 

H 

SCANPTR2 

ASSIGNVL 

A,M 

It \ II 

VALFCTDL 
SCANNXT ;bscan . 



;SAVE PARAMETER SCAN 

; UPDATE VALUE OF PARAMETER 

;MORE ARGUMENTS 



SCANNXTV ;bscan (val) 

"V -MUST RF FNH OF PARAMFTFRS TOO 



EVALUATE EXPRESSION 





VALFCTNA: 




14A5 CDA303 


CALL 


SCANNXTV ;bscan (val) 


14A8 B5 


DB 


KEYEQ ;LOOK FOR EQUALS SIGN 


14A9 CD930F 


CALL 


VALEXPR ;bscan expr ;EVALUATE FUNCTION 


14AC 2B 


OCX 


H 


14AD CDAB03 


CALL 


SCANNXT ;bscan , 


14B0 C2EF05 


JNZ 


ERRASN 


14B3 El 


POP 


H 


14B4 226F03 


SHLD 


SCANPTR1 


14B7 CDD903 


CALL 


TYPECHK 


14BA C20000 


JNZ 


VALFCTRL 


14BD CDD60B 


CALL 


STRGUNIQ 


14C0 EB 


XCHG 




14C1 229303 


SHLD 


ACCUMLTR 
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RESTORE PARAMETERS 







VALFCTRL: 






14C4 


Fl 


POP 


PSW ; RESTORE 


VALUES OF PARAMETERS 


14C5 


D20000 


JNC 


VALFCTCR 




14C8 


El 


POP 


H 




14C9 


CDDC03 


CALL 


TYPECHKA 




14CC 


CA0000 


JZ 


VALFCTRS 




14CF 


CI 


POP 


B 




14D0 


Dl 


POP 


D 




14D1 


73 


MOV 


M,E ;RESTORE 


NUMERIC VALUE 


14D2 


23 


INX 


H 




14D3 


72 


MOV 


M,D 




14D4 


23 


INX 


H 




14D5 


71 


MOV 


M,C 




14D6 


23 


INX 


H 




14D7 


70 


MOV 


M,B 




14D8 


C3C414 


JMP 
VALFCTRS: 


VALFCTRL 




14DB 


Dl 


POP 


D ;RESTORE 


STRING VALUE 


14DC 


EB 


XCHG 






14DD 


228F03 


SHLD 


STRGTMPP 


;DEALLOCATE TEMPORARY 


14E0 


EB 


XCHG 






14E1 


0603 


MVI 


B.TYPESTRG 




14E3 


CDOOOO 


CALL 


COPYVALL 




14E6 


C3C414 


JMP 
VALFCTCR: 


VALFCTRL 




14E9 


2A6F03 


LHLD 


SCANPTR1 


;COERCE RESULT TO CORi 


14EC 


CDDC03 


CALL 


TYPECHKA 




14EF 


C2E80B 


JNZ 


COERCEF 




14F2 


CDFBOB 


CALL 


CSTRING ;STRING 


FUNCTION 


14F5 


E5 


PUSH 


H 




14F6 


2A9303 


LHLD 


ACCUMLTR 




14F9 


EB 


XCHG 






14FA 


CDC711 


CALL 


STRGRELT 




14FD 


C38011 


JMP 
ERRAID: 


STRGALOU 




1500 


1E1A 


MVI 


E.ERRNID-ERRN 




1502 


C3F105 


JMP 
SCANFNN: 


ERRMSG 




1505 


CDA303 


CALL 


SCANNXTV 


;bscan (val) 


1508 


A7 


DB 


KEYFN 




1509 


3EAB 


MVI 


A.SCANPFLD 




150B 


326703 


STA 


SCANPFLG 




150E 


0620 


MVI 


B.TYPEDEF 




1510 


C33812 


JMP 


VARSCNDF 
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GENERATE 


A NEW CURRENT STRING 




STRNGEN: 




1513 


CD0000 


CALL 


STRGALOC ;GENERATE A NEW STRING, 




STRSTCDS: 




1516 


216C03 


LXI 


H.STRGTMPL ;SET CURRENT STRING DESC 


1519 


E5 


PUSH 


H 


151A 


77 


MOV 


M,A 


151B 


23 


INX 


H 


151C 


73 


MOV 


M,E 


151D 


23 


INX 


H 


151E 


72 


MOV 


M,D 


151F 


El 


POP 


H 


1520 


C9 


RET 








ALLOCATE 


STORAGE IN STRING SPACE 




< 


5TRGAL0C: 




1521 


B7 


ORA 


A ;ALLOCATE SPACE FOR STRING, 


1522 


C30000 


JMP 
5TRGALAG: 


STRGALAH ;SIZE IN A 


1525 


Fl 


POP 
STRGALAH: 


PSW ; ENTER FOR SECOND TRY 


1526 


F5 


PUSH 


PSW 


1527 


2A8903 


LHLD 


STCKBASE 


152A 


EB 


XCHG 




152B 


2A8B03 


LHLD 


STRGFREE 


152E 


2F 


CMA 




152F 


4F 


MOV 


C,A 


1530 


06FF 


MVI 


B.OFFH 


1532 


09 


DAD 


B 


1533 


23 


INX 


H 


1534 


CDC104 


CALL 


CMHLLTDE 


1537 


DAOOOO 


JC 


STRGALGC 


153A 


228B03 


SHLD 


STRGFREE 


153D 


23 


INX 


H 


153E 


EB 

i 


XCHG 
'OPAFRET: 


; RETURNS: DE-STRING ADDRESS 


153F 


Fl 


POP 


PSW 


1540 


C9 


RET 
STRGALGC: 




1541 


Fl 


POP 


PSW ;COLLECT GARBAGE IN STRING SPACE 


1542 


1E85 


MVI 


E.ERRNOS-ERRN 


1544 


CAF105 


JZ 


ERRMSG 


1547 


BF 


CMP 


A 


1548 


F5 


PUSH 


PSW 


1549 


012515 


LXI 


B.STRGALAG ;THEN TRY ALLOCATION 


154C 


C5 


PUSH 


B 
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; COLLECT 


GARBAGE IN 






STRGGBCL: 




154D 


2A8O03 


LHLO 
STRGGBLP: 


STRGBASE 


1550 


228B03 


SHLD 


STRGFREE 


1553 


210000 


LXI 


H,0 


1556 


E5 


PUSH 


H 


1557 


2A8903 


LHLD 


STCKBASE 


155A 


E5 


PUSH 


H 


155B 


2A8D03 


LHLD 


STRGBASE 


155E 


23 


INX 
STRGGBTL: 


H 


155F 


EB 


XCHG 




1560 


2A8F03 


LHLD 


STRGTMPP 


1563 


EB 


XCHG 




1564 


CDC104 


CALL 


CMHLLTDE 


1567 


015F15 


LXI 


B, STRGGBTL 


156A 


C20000 


JNZ 


STRGGBHI 


156D 


2A8303 


LHLD 
STRGGBVR: 


VARIABLE 


1570 


EB 


XCHG 




1571 


2A8503 


LHLD 


MATTABLE 


1574 


EB 


XCHG 




1575 


CDC104 


CALL 


CMHLLTDE 


1578 


CAOOOO 


JZ 


STRGGNAV 


157B 


7E 


MOV 


A,M 


157C 


23 


INX 


H 


157D 


E60F 


ANI 


OOFH 


157F 


D603 


SUI 


TYPESTRG 


1581 


5F 


MOV 


E.A 


1582 


9F 


SBB 


A 


1583 


57 


MOV 


D,A 


1584 


7E 


MOV 


A.M 


1585 


23 


INX 


H 


1586 


E680 


ANI 


080H ;D 


1588 


19 


DAD 


D 


1589 


B3 


ORA 


E 


158A 


CDOOOO 


CALL 


STRGGBHV 


158D 


C37015 


JMP 
STRGGBAL: 


STRGGBVR 


1590 


CI 


POP 
STRGGNAV: 


B 


1591 


EB 


XCHG 


;S 


1592 


2A8703 


LHLD 


FREELIMT 


1595 


EB 


XCHG 




1596 


COC104 


CALL 


CMHLLTDE 


1599 


CAOOOO 


JZ 


STRGGBMV 


159C 


CDOOOO 


CALL 


LDRGMM 


159F 


7B 


MOV 


A.E 


15AO 


E5 


PUSH 


H 


15A1 


09 


DAD 


B 


15A2 


E60F 


ANI 


OOFH 



;MAKE ALL STRINGS UNSAFE 
;FIND HIGHEST UNSAFE STRING 

;SCAN TEMPORARIES, 



;SCAN REGULAR VARIABLES. 



DEFINITIONS ARE STRINGS 



SCAN ARRAY VARIABLES 
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15A4 
15A6 
15A9 
15AC 
15AD 
15AE 
15B0 
15B1 
15B2 

15B3 
15B4 
15B7 
15B8 
15BB 
15BE 

15C1 
15C2 

15C3 
15C4 
15C5 
15C6 
15C7 
15C8 
15C9 
15CA 
15CB 
15CC 
15CD 
15CE 
15CF 
15D2 
15D5 
15D6 
15D7 
15D8 
15D9 
15DA 
15DD 
15DE 
15DF 
15E0 
15E1 
15E2 
15E3 
15E4 
15E5 
15E6 
15E7 
15E8 



FE03 
C29015 
226F03 
El 

4E 

0600 

09 

09 

23 

EB 

2A6F03 

EB 

CDC104 

CA9115 

01B3'15 

C5 
AF 

4E 

23 

5E 

23 

56 

23 

CO 

79 

B7 

C8 

44 

4D 

2A8B03 

CDC104 

60 

69 

D8 

El 

E3 

CDC104 

E3 

E5 

60 

69 

DO 

CI 

Fl 

Fl 

E5 

D5 

C5 

C9 



CPI 

JNZ 

SHLD 

POP 

MOV 

MVI 

DAD 

DAD 

INX 

STRGGBAS: 
XCHG 
LHLD 
XCHG 
CALL 
JZ 
LXI 

STRGGBHI: 
PUSH 
XRA 

STRGGBHV: 
MOV 
INX 
MOV 
INX 
MOV 
INX 
RNZ 
MOV 
ORA 
RZ 
MOV 
MOV 
LHLD 
CALL 
MOV 
MOV 
RC 
POP 
XTHL 
CALL 
XTHL 
PUSH 
MOV 
MOV 
RNC 
POP 
POP 
POP 
PUSH 
PUSH 
PUSH 
RET 



TYPESTRG 

STRGGBAL 

SCANPTR1 

H 

CM 

B.000H 

B 

B 

H 



;LOOK THROUGH ENTIRE ARRAY 



SCANPTR1 

CMHLLTDE 
STRGGNAV 
B, STRGGBAS 



•PflMPARF THTS STRTNfi AnflR TO MAY 



;LOAD STRING DESCRIPTOR 



B 
A 

CM 

H 

CM 

H 

D,M 

H 

A.C 
A 

B,H 

CL 

STRGFREE 

CMHLLTDE 

H,B 

L.C 



H ;COMPARE WITH HIGHEST UNSAFE 

CMHLLTDE 

H 

H,B 

L,C 



NOT A STRING VARIABLE 
CHECK FOR ZERO LENGTH 
ALREADY SAFE? 



B 

PSW 

PSW 

H 

D 

B 



;SAVE NEW HIGHEST UNSAFE ADDR 
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15E9 
15EA 
15EB 
15EC 
15ED 
15EE 
15EF 
15F0 
15F1 
15FZ 
15F3 
15F4 
15F5 
15F7 
15F8 
16F9 
15FA 
15FB 
15FC 
15FD 
1600 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
160A 



Dl 

El 

7D 

B4 

C8 

ZB 

46 

2B 

4E 

E5 

2B 

6E 

2600 

09 

50 

59 

2B 

44 

4D 

2A8B03 

CDCA04 

El 

71 

23 

70 

60 

69 

2B 

C35015 



STRGGBMV: 
POP 
POP 
MOV 
ORA 
RZ 
DCX 
MOV 
DCX 
MOV 
PUSH 
DCX 
MOV 
MVI 
DAD 
MOV 
MOV 
DCX 
MOV 
MOV 
LHLD 
CALL 
POP 
MOV 
INX 
MOV 
MOV 
MOV 
DCX 
JMP 



D 
H 

A,L 
H 

H 

B,M 

H 

CM 

H 

H 

L.M 

H.OOOH 

B 

D,B 

E,C 

H 

B,H 

C.L 

STRGFREE 

COPYTEXT 

H 

M.C 

H 

M,B 

H,B 

L,C 

H 

STRGGBLP 



;MAKE HIGHEST UNSAFE SAFE 



;ANY UNSAFE? 
;LOAD DESCRIPTOR 



FIND END OF STRING 



;COPY IT TO END OF SAFE AREA 



; EXTEND SAFE AREA 
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VARIOUS NUMERIC/STRING CONVERSION FUNCTIONS 







FIND LENGTH OF STRING 




LENFCT: 




160D 


01CE0D 


LXI 


B.FLOATA ;LEN FUNCTION 


1610 


C5 


PUSH 


B 




LENFCTC: 




1611 


CDFBOB 


CALL 


CSTRING 


1614 


CDA911 


CALL 


STRGRELA 


1617 


3E04 


MVI 


A.TYPESING 


1619 


326B03 


STA 


TYPEFLG 


161C 


7E 


MOV 


A.M 


1610 


B7 


ORA 


A 


i6ii 


23 


INX 


H 


161F 


C9 


RET 








CONVERT 


CHARACTER TO BYTE 




/ 


\SCFCT: 




1620 


CD1116 


CALL 


LENFCTC ;ASC FUNCTION 


1623 


CA230C 


JZ 


ERRAFC 


1626 


4E 


MOV 


CM ; FETCH ADDRESS 


1627 


23 


INX 


H 


1628 


46 


MOV 


B,M 


1629 


OA 


LDAX 


8 ;THEN THE FIRST CHARA 


162A 


C3CE0O 


JMP 


FLOATA 






CONVERT 


BYTE TO CHARACTER 




( 


:hrfct: 




162D 


3E01 


MVI 


A,l ;CHR$ FUNCTION 


162F 


CD1315 


CALL 


STRNGEN 


1632 


CD2F0C 


CALL 


CBYTE 


1635 


2A6D03 


LHLD 


STRGTMPA 


1638 


73 

\ 


MOV 
/ALRETST: 


M,E 


1639 


CI 


POP 


B ;STRING FUNCTION, REM 


163A 


C37D11 


JMP 


STRGALOT 



REMOVE CSINGLE 
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DECODE 


NUMBER FROM STRING 




VALFCT: 




163D 


CD1116 


CALL 


LENFCTC ;VAL FUNCTION 


1640 


CA0000 


JZ 


ZEROAC 


1643 


5F 


MOV 


E,A 


1644 


1600 


MVI 


D,0 


1646 


4E 


MOV 


CM 


1647 


23 


INX 


H 


1648 


46 


MOV 


B,M 


1649 


C5 


PUSH 


B 


164A 


60 


MOV 


H,B 


164B 


69 


MOV 


L.C 


164C 


19 


DAD 


D 


164D 


46 


MOV 


B,M 


164E 


72 


MOV 


M,D 


164F 


E3 


XTHL 




1650 


C5 


PUSH 


B 


1651 


7E 


MOV 


A.M 


1652 


CDOOOO 


CALL 


DECODE 


1655 


CI 


POP 


B 


1656 


El 


POP 


H 


1657 


70 


MOV 


M,B 


1658 


C9 


RET 








ENCODE 


NUMBER IN STRING 




i 


STRFCT: 




1659 


CDF40B 


CALL 


CSINGLE ;STR$ FUNCTION 


165C 


CD4911 


CALL 


VALSTRGN ;CREATE STRING FROM NUMBER 


165F 


CDA911 


CALL 


STRGRELA 


1662 


013916 


LXI 


B.VALRETST 


1665 


C5 


PUSH 


B 


1666 


EB 


XCH6 
5TRGSTOR: 




1667 


EB 


XCH6 




1668 


7E 


MOV 


A.M ;STORE STRING INTO STRING SPACE, 


1669 


E5 


PUSH 


H ; LEAVE DESCRIPTOR IN STRGTMP 


166A 


CD2115 


CALL 


STRGALOC 


166D 


El 


POP 


H 


166E 


CDOOOO 


CALL 


LDICBMM ;LOAD BUFFER ADDRESS 


1671 


CD1615 


CALL 


STRSTCDS 


1674 


E5 


PUSH 


H 


1675 


6F 


MOV 


L,A 


1676 


CD1612 

1 


CALL 
'OPDERET: 


COPYSTRG 


1679 


Dl 


POP 


D 


167A 


C9 


RET 
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; CONVERT 


HEX STRING TO NUMBER 






HXVFCT: 






167B 


CD1116 


CALL 


LENFCTC 


DO INITIAL PROCESSING 


167E 


CAOOOO 


JZ 


ZEROAC 




1681 


5F 


MOV 


E,A 




1682 


4E 


MOV 


C.M 




1683 


23 


INX 


H 




1684 


46 


MOV 


B,M 




1685 


210000 


LXI 
HXVFCTL: 


H,0 


INITIAL OUTPUT TO ZERO 


1688 


OA 


LOAX 


B 


FETCH CHARACTER 


1689 


03 


INX 


B 




168A 


FE3A 


CPI 


H , « 


VERIFY THAT IT'S HEX 


168C 


D40000 


CNC 


HXVFCTCH 




168F 


D2230C 


JNC 


ERRAFC 


TF NOT. COMPLAIN 


1692 


D630 


SUI 


"0" 




1694 


DA230C 


JC 


ERRAFC 


MUST BE AT LEAST ZERO 


1697 


29 


DAD 


H 




1698 


29 


DAD 


H 


INCORPORATE NEW DIGIT 


1699 


29 


DAD 


H 




169A 


29 


DAD 


H 




169B 


B5 


ORA 


L 




169C 


6F 


MOV 


L.A 




169D 


ID 


DCR 


E 


COUNT DIGITS 


169E 


C28816 


JNZ 
FLOATHL: 


HXVFCTL 




16A1 


7C 


MOV 


A,H 


CONVERT INTEGER IN HL TO 


16A2 


45 


MOV 


B.L 




16A3 


C30000 


JMP 
HXVFCTCH: 


FLOATAB 




16A6 


CDBC03 


CALL 


ALPHACHA 


;CONVERT ANY ALPH 



16A9 DO RNC 

16AA D607 SUI 

16AC FE40 CPI 

16AE C9 RET 



'A-'9-l ; MOVE ALPHA TO AFTER DIGITS 
'0+16 ;SET FLAGS CORRECTLY 
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CONVERT 


BYTE TO TWO HEX CHARACTERS 




HEXFCT: 




16AF 


3E0Z 


MVI 


A, 2 [ALLOCATE OUTPUT STRING 


16B1 


CD1315 


CALL 


STRNGEN 


16B4 


3A9603 


LDA 


FLACCEXP 


16B7 


CD0000 


CALL 


FIXAC ;GET INPUT BYTE 


16BA 


213916 


LXI 


H.VALRETST 


16BD 


E5 


PUSH 


H 


16BE 


2A6D03 


LHLD 


STRGTMPA 


16C1 


CDOOOO 


CALL 


HEXFCTL 




HEXFCTL: 




16C4 


7B 


MOV 


A,E ;CONV£RT ONE DIGIT 


16C5 


07 


RLC 




16C6 


07 


RLC 




16C7 


07 


RLC 




16C8 


07 


RLC 




16C9 


5F 


MOV 


E,A 


16CA 


E60F 


AN I 


OOFH 


16CC 


FEOA 


CPI 


10 


16CE 


3F 


CMC 


-.CONVERT TO CHARACTER F 


16CF 


CE30 


AC I 


"0" 


16D1 


27 


DAA 




16D2 


77 


MOV 


M.A 


16D3 


23 


INX 


H 


16D4 


C9 


RET 








TRANSLATE STRING TO UPPER CASE 




I 


JPRFCT: 




1606 


CDFBOB 


CALL 


CSTRING 


16D8 


2A9303 


LHLD 


ACCUMLTR ;GET LENGTH OF OPERAND 


16DB 


E5 


PUSH 


H 


16DC 


7E 


MOV 


A,M 


16DD 


CD1315 


CALL 


STRNGEN [ALLOCATE OUTPUT STRING 


16E0 


Dl 


POP 


D 


16E1 


CDAD11 


CALL 


STRGRELD ; RELEASE INPUT STRING 


16E4 


CDOOOO 


CALL 


LDDCBMM 


16E7 


2A6D03 


LHLD 


STRGTMPA 


16EA 


14 

I 


INR 
JPRFCTL: 


D 


16EB 


15 


DCR 


D [TRANSLATE WHILE COPYING 


16EC 


CA3916 


JZ 


VALRETST ;DONE 


16EF 


OA 


LDAX 


B 


16F0 


CDBC03 


CALL 


ALPHACHA [CONVERT LOWER TO UPPER 


16F3 


77 


MOV 


M,A 


16F4 


03 


INX 


B 


16F5 


23 


INX 


H 


16F6 


C3EB16 


JMP 


UPRFCTL 
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SUBSTRING FUNCTIONS 



16F9 CD0000 

16FC AF 

16FD E3 

16FE 4F 

16FF E5 

1700 7E 

1701 B8 

1702 DAOOOO 

1705 78 

1706 C30000 



1709 EB 

170A CD280C 

170D 43 

170E CDA303 

1711 29 

1712 C9 



1713 OEOO 



1715 
1716 
1719 
171A 
171B 
171C 
171D 
171E 
171F 
1720 
1721 
1723 
1724 
1725 
1726 
1729 
172A 
172D 
172E 
1731 



C5 

CD2115 

CI 

El 

E5 

23 

46 

23 

66 

68 

0600 

09 

44 

4D 

CD1615 

6F 

CD1612 

01 

CDAD11 

C37D11 



LFTFCT: 
CALL 
XRA 

LEFRIGMR: 
XTHL 
MOV 

LEFRIGMD: 
PUSH 
MOV 
CMP 
JC 
MOV 
JMP 

LEFRIGAR: 
XCHG 
CALL 
MOV 
CALL 
DB 
RET 

LEFRIGMC: 
MVI 

LEFRIGMB: 
PUSH 
CALL 
POP 
POP 
PUSH 
INX 
MOV 
INX 
MOV 
MOV 
MVI 
DAD 
MOV 
MOV 
CALL 
MOV 
CALL 
POP 
CALL 
JMP 



LEFRIGAR ;LEFT$ FUNCTION 
A ;LEFT(X,N)-MID(X,1,N) 



C.A 

H 

A,M 

B 

LEFRIGMC 

A,B 

LEFRIGMB 



;C-START-1, B-LEN 

;RESOLVE DESIRED LEN WITH STRING 



VALBYTE2 

B,E 

SCANNXTV 

I! \ M 



CO 



STRGALOC 

B 

H 

H 

H 

B,M 

H 

H,M 

L,B 

B,0 

B 

B,H 

C,L 

STRSTCDS 

L.A 

COPYSTRG 

D 

STRGRELD 

STRGALOT 



; INITIAL COMMON PROCESSING 
;FOR LEFTS, RIGHTS 



;bscan (val) 



;ALLOCATE ANSWER STRING 



;COMPUTE ADDRESSES FOR COPY 



;(from HL.MB) 



;COPY 
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RIGFCT: 

1734 CD0917 CALL LEFRIGAR ;RIGHT$ FUNCTION 

1737 Dl POP D 

1738 D5 PUSH D 

1739 1A LDAX 

173A 90 SUB B ;RIGHT(X, N)«MID(X, LEN(X)-N+1 ,N) 

173B C3FD16 OMP LEFRIGMR 

MIDFCT: 

173E EB XCHG ;MID$ FUNCTION 

173F CD280C CALL VALBYTE2 ;SCAN STARTING POSITION 

1742 43 MOV B,E 

1743 B7 ORA A ;NON-ZERO STARTING POSITION? 

1744 CA230C JZ ERRAFC 

1747 C5 PUSH B 

1748 1EFF MVI E.OFFH 
174A 7E MOV A.M 
174B FE29 CPI *')" 

174D C4280C CNZ VALBYTE2 ;SCAN OPTIONAL THIRD ARGUMENT 

1750 CDA303 CALL SCANNXTV ;bscan (val) 

1753 29 DB ")" 

1754 Fl POP PSW ;COMPUTE STARTING BYTE AND LENGTH 

1755 E3 XTHL 

1756 01FF16 LXI B.LEFRIGMD 

1759 C5 PUSH B 
175A 3D DCR A 
175B BE CMP M 

175C 0600 MVI B,0 ;START > LENI => LENO-0 

175E DO RNC 

175F 4F MOV C,A 

1760 7E MOV A.M 

1761 91 SUB C 

1762 BB CMP E 

1763 47 MOV B.A 

1764 D8 RC ;LENO - MIN(LENI-START, LENR) 

1765 43 MOV B,E 

1766 C9 RET 
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; INDEX OF 


STRING FUNCTION 






INSFCT: 






1767 


EB 


XCHG 






1768 


CDA303 


CALL 


SCANNXTV 


;bscan (val) 


176B 


2C 


DB 


»l H 




176C 


CDAA10 


CALL 


VALPARN2 


;SCAN SECOND ARGUMENT 


176F 


E3 


XTHL 




SHUFFLE RETURN STACK 


1770 


017008 


LXI 


B.POPHLRET 


1773 


C5 


PUSH 


B 




1774 


E5 


PUSH 


H 




1775 


CD1116 


CALL 


LENFCTC 


PROCESS SECOND STRING 


1778 


E3 


XTHL 






1779 


F5 


PUSH 


PSW 




177A 


CAOOOO 


JZ 


INSFCTXT 




177D 


CD AC 11 


CALL 


STRGREI H 


;WORK ON FIRST STRING 


1780 


7E 


MOV 


A,M 




1781 


CI 


POP 


B 




1782 


Dl 


POP 


D 




1783 


90 


SUB 


B 


COMPARE LENGTHS 


1784 


DAOOOO 


JC 


ZEROAC 


TEST IS LONGER, NO MATCHES 


1787 


3C 


INR 


A 




1788 


4F 


MOV 


C.A 


SAVE NUMBER OF ATTEMPTS 


1789 


C5 


PUSH 


B 




178A 


CDOOOO 


CALL 


LDICBMM 


GET ADDRESS OF TARGET 


178D 


EB 


XCHG 






178E 


5E 


MOV 


E.M 


GET ADDRESS OF MATCHER 


178F 


23 


INX 


H 




1790 


56 


MOV 


D,M 




1791 


EB 


XCHG 






1792 


Dl 


POP 


D 


RECOVER LENGTH, COUNTER 


1793 


3E01 


MVI 
INSFCTSL: 


A.l 




1795 


D5 


PUSH 


D 


SAVE LENGTH, COUNTER 


1796 


F5 


PUSH 


PSW 


SAVE POSITION 


1797 


C5 


PUSH 


B 


SAVE ADDRESSES 


1798 


E5 


PUSH 


H 




1799 


5A 


MOV 


E,D 




179A 


CD5510 


CALL 


RELOPRSL 


;COMPARE STRINGS 


179D 


El 


POP 


H 


RECOVER ADDRESSES 


179E 


CI 


POP 
INSFCTXT: 


B 




179F 


Dl 


POP 


D 




17A0 


7A 


MOV 


A.D 


RECOVER POSITION 


17A1 


Dl 


POP 


D 


AND LENGTH, COUNTER 


17A2 


CACEOD 


JZ 


FLOATA 


ANSWER FOUND, GIVE IT BACK 


17A5 


3C 


INR 


A 


INCREMENT POSITION 


17A6 


03 


INX 


B 




17A7 


ID 


DCR 


E 


COUNT ATTEMPTS 


17A8 


C29517 


JNZ 


INSFCTSL 


;KEEP TRYING 


17AB 


C30000 


JMP 


ZEROAC 


OR NOMATCH 
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FUNCTION RETURNING AMOUNT OF REMAINING FREE SPACE 



17AE 
17B1 
17B2 
17B5 
17B6 
17B9 
17BC 
17BF 
17C2 
17C5 
17C6 



2A8503 

EB 

210000 

39 

COD903 

C20000 

CDA911 

C04D15 

2A8903 

EB 

2A8B03 



17C9 7D 

17CA 93 

17CB 47 

17CC 7C 

17CD 9A 

17CE 50 

17CF 1E00 

17D1 216B03 

17D4 3604 

17D6 0690 

17D8 C30000 



FREFCT: 
LHLD 
XCHG 
LXI 
DAD 
CALL 
JNZ 
CALL 
CALL 
LHLD 
XCHG 
LHLD 

FREFCTNS: 
MOV 
SUB 
MOV 
MOV 
SBB 

FLOATAB: 
MOV 
MVI 
LXI 
MVI 
MVI 
JMP 



MATTABLE 

H.O 

SP 

TYPECHK 

FREFCTNS 

STRGRELA 

STRGGBCL 

STCKBASE 

STRGFREE 

A.L 

E 

B,A 

A,H 

D 

D,B 

E.000H 

H.TYPEFLG 

M.TYPESING 

B.090H 

FLOATINT 



;FRE FUNCTION 



; RETURN BYTES OF FREE STRNG SPACE 



MEMORY DIDDLING FACILITIES 



MEMFCT: 
17DB CDD903 CALL 
17DE CA0000 JZ 
17E1 CD100C CALL 
17E4 1A LDAX 
17E5 C3CE0D JMP 

MEMFCTC: 
17E8 CD1116 CALL 
17EB 2A8103 LHLD 
17EE CAA116 JZ 
17F1 2A9103 LHLD 
17F4 C3A116 JMP 



TYPECHK ;MEM FUNCTION 

MEMFCTC 

CINTEGER 

D 

FLOATA 



LENFCTC 

PROGBASE 

FLOATHL 

STRGTLIM 

FLOATHL 



RELEASE ARGUMENT 

ZERO LENGTH STRING=PROGBASE 

OTHERWISE'UPPER LIMIT 



MEMSTM: 

17F7 CDAB03 CALL SCANNXT ;bscan + ;MEM STATEMENT 

17FA CDA610 CALL VALPARNS 

17FD CD100C CALL CINTEGER 

1800 D5 PUSH D 

1801 CDA303 CALL SCANNXTV ;bscan (val) 

1804 B5 DB KEYEQ 

1805 CD2C0C CALL VALBYTE 

1808 Dl POP D 

1809 12 STAX D 
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180A C9 



RET 
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DIRECT I/O FACILITIES 



PORFCT: 



180B 


CD2F0C 


CALL 


CBYTE ;PORT FUNCTION 


180E 


16DB 


MVI 


D.OPCINP 


1810 


CDOOOO 


CALL 


INOTGEN 


1813 


CD9B03 


CALL 


INOTINS 


1816 


C3CE0D 


JMP 
PORSTM: 


FLO AT A 


1819 


CDAB03 


CALL 


SCANNXT ;bscan + ;PORT STATEMENT 


181C 


CDA610 


CALL 


VALPARNS 


181F 


CD2F0C 


CALL 


CBYTE 


1822 


D5 


PUSH 


D 


1823 


CDA303 


CALL 


SCANNXTV ibsean (val) 


1826 


B5 


DB 


KEYEQ 


1827 


CD2C0C 


CALL 


VALBYTE 


1B2A 


Dl 


POP 


D 


182B 


16D3 


MVI 


D.OPCOUT 


182D 


CDOOOO 


CALL 


INOTGEN 


1830 


C39B03 


OMP 
WAISTM: 


INOTINS 


1833 


CD2C0C 


CALL 


VALBYTE ;WAIT STATEMENT 


1836 


D5 


PUSH 


D 


1837 


C0280C 


CALL 


VALBYTE2 


183A 


F5 


PUSH 


PSW 


183B 


1E00 


MVI 


E.O 


1830 


C4280C 


CNZ 


VALBYTE2 


1840 


CI 


POP 


B 


1841 


4B 


MOV 


C,E 


1842 


Dl 


POP 


D 


1843 


16DB 


MVI 


D.OPCINP 


1845 


CDOOOO 


CALL 
WAISTMIN: 


INOTGEN 


1848 


CD4A00 


CALL 


SYSWAIT ;DO A SYSTEM WAIT 


184B 


CD9B03 


CALL 


INOTINS ;THEN CHECK DEVICE 


184E 


A9 


XRA 


C 


184F 


AO 


ANA 


B 


1850 


CA4818 


JZ 


WAISTMIN 


1853 


C9 


RET 
INOTGEN: 




1854 


E5 


PUSH 


H ; GENERATE INPUT/OUTPUT FOLLOWED 


1855 


219B03 


LXI 


H, INOTINS ;BY RETURN 


1858 


72 


MOV 


M.D 


1859 


23 


INX 


H 


185A 


73 


MOV 


M.E 


185B 


23 


INX 


H 


185C 


36C9 


MVI 


M.OPCRET 


185E 


El 


POP 


H 


185F 


C9 


RET 
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CSAVE/CLOAD PROCESSORS 

save filename - save on diskette 
load filename - get from diskette 

load and save programs from the disk 



1860 


B400 


dl4base 


equ 0b400h 


I860 


6000 


fsprom 


equ ObOOOh 


1860 


B39B 


bootstart 


equ fsprom+ 


1860 


B8E0 


directorylookup equ 


1860 


B796 


opens 


equ 


1860 


B7DC 


puts 


equ 


1860 


B82D 


closes 
cldstm: 


equ 


1Afifl 


rnnnnn 


call 


setf i 1 ename 


1863 


CDE0B8 


call 


directorylookup 


1866 


D20000 


jnc 


namenotfound 


1869 


CD9BB3 


call 


bootstart 


186C 


CDOOO0 


call 


checkprogram 


186F 


CDFF04 


call 


newload 


1872 


C31906 


jmp 


cmndstrt 






namenotfoun 


d: 


1875 


1EE1 


mvi 


e.errnf i-errn 


1877 


C3F105 


Jn>P 
csvstm: 


errmsg 


187A 


CDOOO0 


call 


setf ilename 


187D 


0602 


mvi 


b,2 


187F 


CD96B7 


call 


opens 


1882 


D20000 


jnc 


cannotopen 


1885 


CD0000 


call 


checkprogram 


1888 


E5 


push 


h 


1889 


2A8103 


1 hid 


progbase 


188C 


40 


mov 


c.l 


188D 


CODCB7 


call 


puts 


1890 


4C 


mov 


c.h 


1891 


CDDCB7 


call 


puts 


1894 


0E00 


mvi 


c,0 


1896 


CDDCB7 


call 


puts 


1899 


CDDCB7 


call 


puts 


189C 


01 


pop 
saveioop: 


d 


189D 


4E 


mov 


c,m 


189E 


23 


inx 


h 


189F 


CDDCB7 


call 


puts 


18A2 


7C 


mov 


a,h 


18A3 


BA 


cmp 


d 


18A4 


C29D18 


jnz 


saveioop 


18A7 


7D 


mov 


a.l 


18A8 


BB 


cmp 


e 


18A9 


C29D18 


jnz 


saveioop 


18 AC 


CD2DB8 


call 


closes 



!9bh ;load image files 
dl4base+4e0h ;find filename 
dl4base+396h ;open stream 
dl4base+3dch ;put char 
dl4base+42dh ;close stream 



'nartn filnnnma 



;resat program pointers 



;file not saved 



write enable 

open stream (only one in 014) 
-disk full or other bad stuff 

;save end pointer 

;first address 



;start address » for no start 

:de has end address+1 

;get char 

;and send to file 
;is this the end? 



:yes 
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18AF C31906 jmp cmndstrt 

cannotopen: 

18B2 1E09 mvi e.errnsl -errn 

18B4 C3F105 jmp errmsg 







; setfilename 

; returns hi set 


to a 


filename string 






setfilename 








18B7 


110000 


lxi 


d,f ilename+1 




18BA 


0600 


mvi 
sfnloop: 


b.O 






18BC 


7E 


mov 


a,m 




;look at char 


18BD 


FE00 


cpi 









18BF 


CAOOOO 


jz 


sfndone 






18C2 


FE20 


cpi 


H M 






18C4 


CAOOOO 


jz 


sfndone 






18C7 


04 


inr 


b 




;up count 


18C8 


23 


inx 


h 






18C9 


12 


stax 


d 






18CA 


13 


inx 


d 






18CB 


C3BC18 


jmp 
sf ndone: 


sfnloop 






18CE 


210000 


lxi 


h, filename 




18D1 


AF 


xra 


a 




;is the name 


18D2 


BO 


ora 


b 






1803 


CAEF05 


jz 


errasn 




;yes 


18D6 


77 


mov 


m,a 




;store count 


18D7 


C9 


ret 









checkprogram 
walk over the program looking for the end 
return last byte+1 in hi 







checkprogram: 


1808 


2A8103 


lhld 
cprogloop : 


progbase 


18DB 


7E 


mov 


a,m 


18DC 


23 


inx 


h 


18DD 


B6 


ora 


m 


18DE 


23 


inx 


h 


18DF 


CAOOOO 


jz 


cprogok 


18E2 


23 


inx 


h 


18E3 


23 


inx 
cprogloop2: 


h 


18E4 


7E 


mov 


a,m 


18E5 


B7 


ora 


a 


18E6 


23 


inx 


h 


18E7 


CADB18 


jz 


cprogloop 


18EA 


C3E418 


J m P 
cprogok: 


cprogloop2 


18ED 


C9 


ret 




1929 


00 


filename: 


ds 60 



;starts here 

;pick up line length 

;if zero then all done 
;skip 1 ine number 

;zero at the end of the line 
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LOGICAL OPERATORS 







ORNOPR: 




192A 


B7 


ORA 


A ;OR OPERATOR 


192B 


C30000 


JMP 
ANDOPR: 


LOGOPRIC 


192E 


AF 


XRA 
LOGOPRIC: 


A ;AND OPERATOR 


192F 


F5 


PUSH 


PSW 


1930 


COF40B 


CALL 


CSINGLE 


1933 


CO100C 


CALL 


CINTEGER 


1936 


Fl 


POP 


PSW 


1937 


EB 


XCHG 




1938 


CI 


POP 


B 


1939 


E3 


XTHL 




193A 


EB 


XCHG 




193B 


CD0000 


CALL 


LOACRG 


193E 


F5 


PUSH 


PSW 


193F 


C0100C 


CALL 


CINTEGER 


1942 


Fl 


POP 


PSW 


1943 


CI 


POP 


B 


1944 


79 


MOV 


A.C 


1945 


C20000 


JNZ 


ORNOPRFN 


1948 


A3 


ANA 


E 


1949 


4F 


MOV 


C.A 


194A 


78 


MOV 


A,B 


194B 


A2 


ANA 


D 


194C 


C30000 


JMP 
ORNOPRFN: 


LOGOPRXT ;RETU 


194F 


B3 


ORA 


E 


1950 


4F 


MOV 


C,A 


1951 


78 


MOV 


A,B 


1952 


B2 


ORA 
LOGOPRXT: 


D 


1953 


41 


MOV 


B.C 


1954 


C3CE17 


JMP 
VALUNOT: 


FLOATAB ;RETURN FROM 


1957 


165A 


MVI 


D.PREDNOT ;EVAL 


1959 


CD960F 


CALL 


VALEXPRL 


195C 


CDF40B 


CALL 


CSINGLE 


195F 


CD100C 


CALL 


CINTEGER 


1962 


7B 


MOV 


A,E 


1963 


2F 


CMA 




1964 


4F 


MOV 


C,A 


1965 


7A 


MOV 


A,D 


1966 


2F 


CMA 




1967 


CD5319 


CALL 


LOGOPRXT 


196A 


CI 


POP 


B 


196B 


C3A20F 


JMP 


VALEXPRC 



EVALUATE UNARY NOT 
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MOD, MAXIMUM, MINIMUM OPERATORS 







MODOPR: 






196E 


CI 


POP 


8 


MODULO FUNCTION 


196F 


Dl 


POP 


D 


X MOD Y - 


1970 


D5 


PUSH 


D 


X - INT(X/Y) * Y 


1971 


C5 


PUSH 


B 




1972 


2A9303 


LHLD 


ACCUMLTR 




1975 


E5 


PUSH 


H 




1976 


2A9503 


LHLD 


FLACCMSB 




1979 


E5 


PUSH 


H 




197A 


CDOOOO 


CALL 


FLDIV 




197D 


CD0OO0 


CALL 


INTFCT 




1980 


CI 


POP 


B 




1981 


Dl 


POP 


D 




1982 


CDOOOO 


CALL 


FLMUL 




1985 


C30000 


JMP 
MAXOPR: 


SUBOPR 




1988 


CI 


POP 


B 




1989 


Dl 


POP 


D 




198A 


CDOOOO 


CALL 


FLCMP 


COMPARE OPERANDS 


198D 


C8 


RZ 




NO DIFFERENCE 


198E 


DAOOOO 


JC 


LDACRG 


REGISTERS LARGER 


1991 


C30000 


JMP 
MINOPR: 


LDRGAC 


ACCUMULATOR LARGER 


1994 


CI 


POP 


B 




1995 


Dl 


POP 


D 




1996 


CDOOOO 


CALL 


FLCMP 


COMPARE OPERANDS 


1999 


C8 


RZ 




NO DIFFERENCE 


199A 


D20000 


JNC 


LDACRG 


REGISTERS SMALLER 


199D 


C30000 


JMP 


LDRGAC 


ACCUMULATOR SMALLER 
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FLOATING POINT ADD/SUBTRACT ROUTINES 



FLADDHLF: 
19A0 210000 LXI 

FLADDM: 
19A3 CD0O0O CALL 
19A6 C30000 JMP 

FLMMMAC: 
19A9 CDOOOO CALL 
19AC C30000 JMP 



19AF CI 

19B0 Dl 

19B1 CDOOOO 



19B4 
19B5 
19B6 
19B7 
19BA 
19BB 
19BE 
19BF 
19C2 
19C3 
19C4 
19C5 
19C8 
19C9 
19CC 
19CD 

19CE 
19D0 
19D1 
19D2 
19D5 
19D6 
19D7 
19DA 
19DB 
19DE 
19E1 
19E4 
19E7 
19E8 
19E9 
19EC 
19EE 
19F1 



78 

B7 

C8 

3A9603 

B7 

CA0O0O 

90 

D20000 

2F 

3C 

EB 

CDOOOO 

EB 

CDOOOO 

CI 

Dl 

FE19 

DO 

F5 

CDOOOO 

67 

Fl 

CDOOOO 

B4 

219303 

F20000 

CDOOOO 

D20000 

23 

34 

CAOOOO 

2E01 

CDOOOO 

C30000 



SUBOPR: 
POP 
POP 

FLSUB: 
CALL 

FLADD: 
MOV 
ORA 
RZ 
LDA 
ORA 
JZ 
SUB 
JNC 
CMA 
INR 
XCHG 
CALL 
XCHG 
CALL 
POP 
POP 

FLADDMGC: 
CPI 
RNC 
PUSH 
CALL 
MOV 
POP 
CALL 
ORA 
LXI 
JP 

CALL 
JNC 
INX 
INR 
JZ 
MVI 
CALL 
JMP 



H.FLHALF 

LDRGMM 
FLADD 



; COMPUTE MM-AC 



LDRGMM 
FLSUB 



CMACCS ; SUBTRACT ACC FROM REGISTERS 

A,B ;ADD ACCUMULATOR TO REGISTERS 
A 

FLACCEXP 

A 

LDACRG 

B 

FLADDMGC 



;NEED LARGER IN AC, INTERCHANGE 



A 

PUSHAC 

LDACRG 

B 

D 

019H 



;ARE MAGNITUDES ARE COMMENSURATE? 



PSW 

SIGNIFY 

H,A 

PSW 

SHIFTRO 

H 

H.ACCUMLTR 

FLADDIFF 

ADDM2CDE 

FLROUND 

H 

M 

ERRAOV 

L.OOIH 

SHIFTRLB 

FLROUND 
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FLADOIFF: 




19F4 


AF 


XRA 


A 


19F5 


90 


SUB 


B 


19F6 


47 


MOV 


B,A 


19F7 


7E 


MOV 


A,M 


19F8 


9B 


SBB 


E 


19F9 


5F 


MOV 


E.A 


19FA 


23 


INX 


H 


19FB 


7E 


MOV 


A,M 


19FC 


9A 


SBB 


D 


19FD 


57 


MOV 


D,A 


19FE 


23 


INX 


H 


19FF 


7E 


MOV 


A,M 


1A00 


99 


SBB 


C 


1A01 


4F 


MOV 
NORMALZI: 


C,A 


1A02 


DCOOOO 


CC 
NORMALIZ: 


CMREGS 


1A05 


68 


MOV 


L,B 


1A06 


63 


MOV 


H,E 


1A07 


AF 


XRA 
NORMALS: 


A 


1A08 


47 


MOV 


B,A 


1A09 


79 


MOV 


A,C 


1A0A 


B7 


ORA 


A 


1A0B 


C20000 


JNZ 


NORMALl 


1A0E 


4A 


MOV 


CD 


1A0F 


54 


MOV 


D,H 


1A10 


65 


MOV 


H.L 


1A11 


6F 


MOV 


L,A 


1A12 


78 


MOV 


A,B 


1A13 


D608 


SUI 


008H 


1A15 


FEEO 


CPI 


OEOH 


1A17 


C2081A 


JNZ 
ZEROAC: 


NORMALS 


1A1A 


AF 


XRA 
LDACCE: 


A 


1A1B 


329603 


STA 


FLACCEXP 


1A1E 


C9 


RET 
NORMAL1L: 




1A1F 


05 


OCR 


B 


1A20 


29 


DAD 


H 


1A21 


7A 


MOV 


A,D 


1A22 


17 


RAL 




1A23 


57 


MOV 


D,A 


1A24 


79 


MOV 


A,C 


1A25 


8F 


ADC 


A 


1A26 


4F 


MOV 

NORMALl: 


C,A 


1A27 


F21F1A 


JP 


NORMAL1L 


1A2A 


78 


MOV 


A,B 


1A2B 


5C 


MOV 


E,H 


1A2C 


45 


MOV 


B,L 


1A2D 


B7 


ORA 


A 



;FIND DIFFERENCE 



;NORMALIZE REGISTERS 



; NORMALIZE BY BYTES 



;ZERO ACCUMULATOR 



FORMALIZE BY BITS 
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1A2E CAOOOO 


JZ 


FLROUND 


1A31 219603 


LXI 


H.FLACCEXP 


1A34 86 


ADD 


M 


1A35 77 


MOV 


M,A 


1A36 D21A1A 


JNC 


ZEROAC 


1A39 C8 


RZ 
FLROUND: 




1A3A 78 


MOV 
FLROUNDV: 


A.B ;ROUND RESULT 


1A3B 219603 


LXI 


H.FLACCEXP 


1A3E B7 


ORA 


A 


1A3F FCOOOO 


CM 


INCCDE 


1A42 46 


MOV 


B,M 


1A43 23 


INX 


H 


1A44 7E 


MOV 


A,M 


1A45 E680 


AN I 


080H 


1A47 A9 


XRA 


C 


1A48 4F 


MOV 


C.A 


1A49 C30000 


JMP 
INCCDE: 


LDACRG 


1A4C 1C 


INR 


E ; INCREMENT CD 


1A4D CO 


RNZ 




1A4E 14 


INR 


D 


1A4F CO 


RNZ 




1A50 OC 


INR 


C 


1A51 CO 


RNZ 




1A52 0E80 


MVI 


C080H 


1A54 34 


INR 


M 


1A55 CO 


RNZ 
ERRAOV: 




1A56 1E6D 


MVI 


E.ERRNOV-ERRN 


1A58 C3F105 


JMP 
ADDM2CDE: 


ERRMSG 


1A5B 7E 


MOV 


A,M ;ADD MEMORY T 


1A5C 83 


ADD 


E 


1A5D 5F 


MOV 


E,A 


1A5E 23 


INX 


H 


1A5F 7E 


MOV 


A,M 


1A60 8A 


ADC 


D 


1A61 57 


MOV 


D,A 


1A62 23 


INX 


H 


1A63 7E 


MOV 


A,M 


1A64 89 


ADC 


C 


1A65 4F 


MOV 


C.A 


1A66 C9 


RET 
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CMREGS: 




1A67 


219703 


LXI 


H.FLACCSSV 


1A6A 


7E 


MOV 


A,M 


1AOB 


2F 


CMA 




1A6C 


77 


MOV 


M,A 


1A60 


AF 


XRA 


A 


1A6E 


6F 


MOV 


L,A 


1A6F 


90 


SUB 


B 


1A70 


47 


MOV 


B,A 


1A71 


70 


MOV 


A,L 


1A72 


9B 


SBB 


E 


1A73 


5F 


MOV 


E.A 


1A74 


7D 


MOV 


A,L 


1A75 


9A 


SBB 


D 


1A76 


57 


MOV 


D,A 


1A77 


7D 


MOV 


A.L 


1A78 


99 


SBB 


C 


1A79 


4F 


MOV 


C,A 


1A7A 


C9 


RET 
SHIFTRO: 




1A7B 


0600 


MVI 
SHIFTR: 


B.OOOH 


1A7D 


D608 


SUI 


008H ;S 


1A7F 


DAOOOO 


JC 


SHIFTRB 


1A82 


43 


MOV 


B.E 


1A83 


5A 


MOV 


E.D 


1A84 


51 


MOV 


D,C 


1A85 


OEOO 


MVI 


C.OOOH 


1A87 


C37D1A 


JMP 
SHIFTRB: 


SHIFTR 


1A8A 


C609 


ADI 


009H 


1A8C 


6F 


MOV 
SHIFTRBL: 


L,A 


1A8D 


AF 


XRA 


A 


1A8E 


20 


DCR 


L 


1A8F 


C8 


RZ 




1A90 


79 


MOV 
SHIFTRLB: 


A,C 


1A91 


IF 


RAR 




1A9Z 


4F 


MOV 


C,A 


1A93 


7A 


MOV 


A.D 


1A94 


IF 


RAR 




1A95 


57 


MOV 


D,A 


1A96 


7B 


MOV 


A,E 


1A97 


IF 


RAR 




1A98 


5F 


MOV 


E.A 


1A99 


78 


MOV 


A,B 


1A9A 


IF 


RAR 




1A9B 


47 


MOV 


B,A 


1A9C 


C38D1A 


JMP 


SHIFTRBL 



;COMPLEMENT SAVED SIGN, CDEB 



SHIFT CDEB RIGHT BY A BITS 
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FLOATING POINT MULTIPLY ROUTINE 



1A9F CI 
1AA0 Dl 



1AA1 
1AA4 
1AA5 
1AA7 
1AAA 
1AAB 
1AAE 
1AAF 
1AB2 
1AB5 
1AB6 
1AB7 
1ABA 
1ABB 
1ABE 
1ABF 
1AC0 



CDOO00 

C8 

2E00 

CD0000 

79 

329B03 

EB 

229C03 

010000 

50 

59 

21051A 

E5 

210000 

E5 

E5 

219303 



1AC3 7E 
1AC4 23 
1AC5 B7 
1AC6 CA0000 
1AC9 E5 
1ACA 2E08 

1ACC IF 

1ACD 67 

1ACE 79 

1ACF D20000 

1AD2 E5 

1AD3 2A9C03 

1AD6 19 

1AD7 EB 

1AD8 El 

1AD9 3A9B03 

1ADC 89 

1ADD IF 

1ADE 4F 

1ADF 7A 

1AE0 IF 

1AE1 57 

1AE2 7B 

1AE3 IF 

1AE4 5F 

1AE5 78 

1AE6 IF 



MULOPR: 
POP 
POP 

FLMUL: 
CALL 
RZ 
MVI 
CALL 
MOV 
STA 
XCHG 
SHLD 
LXI 
MOV 
MOV 
LXI 
PUSH 
LXI 
PUSH 
PUSH 
LXI 

FLMULLP: 
MOV 
INX 
ORA 
JZ 

PUSH 
MVI 

FLMULLQ: 
RAR 
MOV 
MOV 
JNC 
PUSH 
LHLD 
DAD 
XCHG 
POP 
LDA 
ADC 

FLMULNA: 
RAR 
MOV 
MOV 
RAR 
MOV 
MOV 
RAR 
MOV 
MOV 
RAR 



SIGNACC ;MULTIPLY REGISTERS BY ACC 



L.OOOH 
FLMLDVEX 
A.C 
FLSCRO 

FLSCR1 

B.O 

D,B 

E.C 

H.NORMALIZ 

H 

H, FLMULLP 

H 

H 

H.ACCUMLTR 

A,M 

H 

A 

FLMULXT 

H 

L.008H 



;NORMALIZE ANSWER AFTER 
; THREE TIMES THROUGH LOOP 



H.A 

A.C 

FLMULNA 

H 

FLSCR1 

D 

H 

FLSCRO 

C 



C.A 
A,D 

D,A 
A,E 

E.A 
A,B 



;NEXT BIT OF MULTIPLIER 



;BIT ON, ADD MULTIPLICAND 



;SHIFT CDEB RIGHT ONE BIT 



basic. LST 




5-Se 


1AE7 47 


MOV 


B.A 


1AE8 2D 


DCR 


L 


1AE9 7C 


MOV 


A,H 


IAEA C2CC1A 


JNZ 


FLMULLQ 


1AED El 


POP 


II 


1AEE C9 


RET 
FLMULXT: 




1AEF 43 


MOV 


B.E 


1AF0 5A 


MOV 


E,D 


1AF1 51 


MOV 


D.C 


1AF2 4F 


MOV 


C.A 


1AF3 C9 


RET 
FLMLDVEX: 




1AF4 78 


MOV 


A,B ;0 


1AF5 B7 


ORA 


A 


1AF6 CAOOOO 


JZ 


FLMLDVEZ 


1AF9 7D 


MOV 


A,L 


1AFA 219603 


LXI 


H.FLACCEXP 


1AFD AE 


XRA 


M 


1AFE 80 


ADD 


B 


1AFF 47 


MOV 


B,A 


1B00 IF 


RAR 




1B01 A8 


XRA 


B 


1B02 78 


MOV 


A,B 


1B03 F20000 


JP 


FLMLDVEY 


1B06 C680 


ADI 


080H 


1B08 77 


MOV 


M.A 


1B09 CA7008 


JZ 


POPHLRET 


1B0C COOOOO 


CALL 


SIGNIFY 


1B0F 77 


MOV 


M,A 


1B10 2B 


DCX 


H 


1B11 C9 


RET 
EXPRNEXC: 




1B12 CDOOOO 


CALL 


SIGNACC ;R 


1B16 2F 


CMA 




1B16 El 


POP 
FLMLDVEY: 


H 


1B17 B7 


ORA 
FLMLDVEZ: 


A 


1B18 El 


POP 


H 


1B19 F21A1A 


JP 


ZEROAC 


1B1C C3561A 


JMP 


ERRAOV 
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;COMPUTE EXP FOR MULTIPLY/DIVIDE 



RANGE EXECEEDED FOR EXP FUNCTION 

;RESULT DETERMINED BY SGN(X) 



basic. LST 
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FLOATING POINT DIVIDE ROUTINE 







FLDIVB10: 




1B1F 


CDOO00 


CALL 


PUSHAC .COMPUTE AC/10 


1B22 


012084 


LXI 


B.08420H 


1B25 


110000 


LXI 


D.OOOOOH 


1B28 


CD000O 


CALL 
DIVOPR: 


LDACRG 


1B2B 


CI 


POP 


B 


1B2C 


Dl 


POP 
FLDIV: 


D 


1B2D 


CDOOOO 


CALL 


SIGNACC ;DIVIDE REGIST 


1B30 


CAOOOO 


JZ 


ERRADO 


1B33 


2EFF 


MVI 


L.OFFH 


1B35 


CDF41A 


CALL 


FLMLDVEX 


1B38 


34 


INR 


M 


1B39 


34 


INR 


M ;p1us 2 


1B3A 


2B 


DCX 


H 


1B3B 


7E 


MOV 


A.M 


1B3C 


2F 


CMA 




1B3D 


329D03 


STA 


FLSCR2 


1B40 


2B 


DCX 


H 


1B41 


7E 


MOV 


A,M 


1B42 


2F 


CMA 




1B43 


329C03 


STA 


FLSCR1 


1B46 


2B 


DCX 


H 


1B47 


7E 


MOV 


A,M 


1B48 


2F 


CMA 




1B49 


329B03 


STA 


FLSCRO 


1B4C 


41 


MOV 


B,C 


1B4D 


EB 


XCHG 




1B4E 


AF 


XRA 


A 


1B4F 


4F 


MOV 


C.A 


1B50 


57 


MOV 


D,A 


1851 


5F 


MOV 


E.A 


1B52 


329E03 


STA 
FLDIVLP: 


FLSCR3 


1B55 


E5 


PUSH 


H 


1B56 


C5 


PUSH 


B 


1B57 


37 


STC 




1B58 


3A9B03 


LDA 


FLSCRO 


1B5B 


80 


ADC 


L 


1B5C 


6F 


MOV 


L,A 


1B5D 


3A9C03 


LDA 


FLSCR1 


1B60 


8C 


ADC 


H 


1B61 


67 


MOV 


H,A 


1B62 


3A9D03 


LDA 


FLSCR2 


1B65 


88 


ADC 


B 


1B66 


47 


MOV 


B,A 


1B67 


3A9E03 


LDA 


FLSCR3 


1B6A 


CEFF 


ACI 


OFFH 


1B6C 


D20000 


JNC 


FLDIVSF 


1B6F 


329E03 


STA 


FLSCR3 
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1B72 Fl 

1B73 Fl 

1B74 37 

1B75 C30000 

1B78 CI 

1B79 El 



1B7A 
1B7B 
1B7C 
1B7D 
1B7E 
1B81 
1B82 
1B83 
1B84 
1B85 
1B86 
1B87 
1B88 
1B89 
1B8A 
1B8B 
1B8C 
1B8D 
1B8E 
1B8F 
1B92 
1B93 
1B96 
1B97 
1B98 
1B99 
1B9C 
1B9D 
1BA0 
1BA1 
1BA2 
1BA5 



79 

3C 

3D 

IF 

FA3B1A 

17 

7B 

17 

5F 

7A 

17 

57 

79 

17 

4F 

29 

78 

17 

47 

3A9E03 

17 

329E03 

79 

B2 

B3 

C2551B 

E5 

219603 

35 

El 

C2551B 

C3561A 



POP 
POP 
STC 
JMP 

FLDIVSF: 
POP 
POP 

FLDIVSS: 
MOV 
INR 
DCR 
RAR 
JM 
RAL 
MOV 
RAL 
MOV 
MOV 
RAL 
MOV 
MOV 
RAL 
MOV 
DAD 
MOV 
RAL 
MOV 
LDA 
RAL 
STA 
MOV 
ORA 
ORA 
JNZ 
PUSH 
LXI 
DCR 
POP 
JNZ 
JMP 



PSW 
PSW 

FLDIVSS 

B 
H 



; TRIAL SUBTRACT SUCCEEDED, 
; THROW AWAY SAVED DIVIDEND 



;TRIAL SUBTRACT FAILED, RESTORE 



A,C 
A 

A 

FLROUNDV 

A,E 

E,A 
A,D 

D,A 
A,C 

C,A 

H 

A,B 

B.A 
FLSCR3 

FLSCR3 

A,C 

D 

E 

FLDIVLP 

H 

H.FLACCEXP 

M 

H 

FLDIVLP 

ERRAOV 



ERRADO: 
1BA8 1E21 MVI 
1BAA C3F105 JMP 



E.ERRNDO-ERRN 
ERRMSG 
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MISCELLANEOUS AUXILIARY ROUTINES 



COPY ACCUMULATOR TO STACK 



1BAD EB 

1BAE 2A9303 

1BB1 E3 

1BB2 E5 

1BB3 2A9503 

1BB6 E3 

18B7 E5 

1BB8 EB 

1BB9 C9 



PUSHAC: 
XCHG 

PUSHAC1: 
LHLD 
XTHL 
PUSH 
LHLD 
XTHL 
PUSH 
XCHG 
RET 



;PUSH ACCUMULATOR ONTO STACK 



ACCUMLTR 

H 

FLACCMSB 

H 



LOAD ACCUMULATOR 



1BBA CDOOOO 

1BBD EB 

1BBE 229303 

1BC1 60 

1BC2 69 

1BC3 229503 

1BC6 EB 

1BC7 C9 



LDRGACMM: 
CALL 

LDACRG: 
XCHG 
SHLD 
MOV 
MOV 
SHLD 
XCHG 
RET 



LDRGMM ;LOAD FLOATING ACC AND REGISTERS 

;LOAD ACCUMULATOR FROM REGISTERS 
ACCUMLTR 
H.B 
L.C 
FLACCMSB 



LOAD REGISTERS 



LDRGAC: 

1BC8 219303 LXI 

LDRGMM: 



1BCB 5E 

1BCC 23 

1BCD 56 

1BCE 23 

1BCF 4E 

1BD0 23 

1BD1 46 

1BD2 23 

1BD3 C9 



MOV 
INX 

LDDCBMM: 
MOV 

LDICBMM: 
INX 
MOV 
INX 
MOV 

INCHLRET: 
INX 
RET 



H, ACCUMLTR ;LOAD REGISTERS FROM ACCUMULATOR 
;LOAD REGISTERS FROM FLOAT NUMBER 



E.M 
H 

D,M 

H 

C,M 
H 
B,M 

H 



;LOAD REGISTERS FROM STRING 
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STORE ACCUMULATOR / COPY A VALUE 



1BD4 119303 

1BD7 3A6B03 
1BDA 47 

1BDB 1A 

1BDC 77 

1BDO 13 

1BDE 23 

1BDF 05 

1BE0 C2DB1B 

1BE3 C9 



LDMMAC : 
LXI 

COPYVAL: 
LDA 
MOV 

COPYVALL: 
LDAX 
MOV 
INX 
INX 
DCR 
JNZ 
RET 



D.ACCUMLTR 



;LOAD MEMORY FROM ACCUMULATOR 



TYPEFLG ;COPY VALUE FROM (DE) TO (HL) 
B,A 

D 

M,A 

D 

H 

B 

COPYVALL 



TURN ON HIGH ORDER MANTISSA BITS OF ACCUMULATOR/REGISTERS 



1BE4 219503 
1BE7 7E 
1BE8 07 
1BE9 37 
1BEA IF 
1BEB 77 
1BEC 3F 
1BED IF 
1BEE 23 
1BEF 23 
1BF0 77 
1BF1 79 
1BF2 07 
1BF3 37 
1BF4 IF 
1BF5 4F 
1BF6 IF 
1BF7 AE 
1BF8 C9 



SIGNIFY: 
LXI 
MOV 
RLC 
STC 
RAR 
MOV 
CMC 
RAR 
INX 
INX 
MOV 
MOV 
RLC 
STC 
RAR 
MOV 
RAR 
XRA 
RET 



H.FLACCMSB ;SET ON HIGH-ORDER MANTISSA BITS, 
A,M ;AND SAVE SIGN IN FLACCSSV 



M,A 



H 
H 

M,A 
A,C 



C,A 

M 



; FIRST ACCUMULATOR, 



;THEN REGISTERS 



basic. LST 



5-Sep-78 14:39:48 



Page 114 







; FLOATING 


POINT COMP 






FLCMP: 




1BF9 


78 


MOV 


A,B ;F 


1BFA 


B7 


ORA 


A 


1BFB 


CAOOOO 


JZ 


SIGNACC 


1BFE 


210000 


LXI 


H.FLCMPXT 


1C01 


E5 


PUSH 


H 


1C02 


cooooo 


CALL 


SIGNACC 


1C05 


79 


MOV 


A,C 


1C06 


C8 


RZ 




1C07 


219503 


LXI 


H.FLACCMSB 


1COA 


AE 


XRA 


M 


1COB 


79 


MOV 


A,C 


1COC 


F8 


RM 




1COD 


CD0000 


CALL 


FLCMPM 


1C10 


IF 


RAR 




1C11 


A9 


XRA 


C 


1C12 


C9 


RET 
FLCMPM: 




1C13 


23 


INX 


H ;C 


1C14 


78 


MOV 


A.B 


1C15 


BE 


CMP 


M 


1C16 


CO 


RNZ 




1C17 


2B 


DCX 


H 


1C18 


79 


MOV 


A,C 


1C19 


BE 


CMP 


M 


1C1A 


CO 


RNZ 




1C1B 


2B 


DCX 


H 


1C1C 


7A 


MOV 


A,D 


1C1D 


BE 


CMP 


M 


1C1E 


CO 


RNZ 




1C1F 


2B 


DCX 


H 


1C20 


7B 


MOV 


A,E 


1C21 


96 


SUB 


M 


1C22 


CO 


RNZ 




1C23 


El 


POP 


H 


1C24 


El 


POP 


H 


1C25 


C9 


RET 





; FLOATING COMPARE REGS TO ACC 



; COMPARE MANTISSAS 
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COMPUTE INTEGER PART OF ACCUMULATOR 



1C26 
1C27 
1CZ8 
1C29 
1C2A 
1C2B 
1C2C 
1C2D 
1C30 
1C33 
1C34 
1C35 
1C38 
1C3A 
1C3B 
1C3E 
1C3F 
1C40 
1C43 
1C45 
1C48 
1C49 



47 

4F 

57 

5F 

B7 

C8 

E5 

CDC81B 

CDE41B 

AE 

67 

FC0000 

3E98 

90 

CD7B1A 

7C 

17 

DC4C1A 

0600 

DC671A 

El 

C9 



FIXAC; 
MOV 
MOV 
MOV 
MOV 
ORA 
RZ 

PUSH 
CALL 
CALL 
XRA 
MOV 
CM 
MVI 
SUB 
CALL 
MOV 
RAL 
CC 
MVI 
CC 
POP 
RET 



B.A 
C,A 
D,A 
E,A 
A 

H 

LDRGAC 

SIGNIFY 

M 

H.A 

DECODE 

A, 09811 

B 

SHIFTRO 

A,H 

INCCDE 
B.000H 
CMREGS 
H 



;LOAD REGS WITH FIX(AC) 



1C4A 
1C4B 
1C4C A3 
1C40 3C 
1C4E 
1C4F 



IB 
7A 



CO 
OD 



1C50 C9 



DECODE: 
DCX 
MOV 
ANA 
INR 
RNZ 
DCR 
RET 



D 

A,D 
E 
A 



DECREMENT CDE 



1C51 
1C54 
1C55 
1C56 
1C57 
1C59 
1C5C 
1C5D 
1C60 
1C63 
1C64 
1C65 



CDC81B 

78 

B7 

C8 

C602 

DA561A 

47 

CDB419 

219603 

34 

CO 

C3561A 



FLMULB10: 
CALL 
MOV 
ORA 
RZ 
AD I 
JC 
MOV 
CALL 
LXI 
INR 
RNZ 
JMP 



LDRGAC -.MULTIPLY CONTENTS OF AC BY 10 

A,B 

A 

002H 

ERRAOV 

B,A 

FLADD ;AC=AC+4*AC 

H.FLACCEXP 

M ;AC=2*AC 

ERRAOV 



SIGNACC: 
1C68 3A9603 LDA FLACCEXP 
1C6B B7 ORA A 
1C6C C8 RZ 
1C6D 3A9503 LDA FLACCMSB 



;FIND SIGN OF ACCUMULATOR 
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1C70 C30000 


JMP 
FLCMPXT: 


SIGNXTND 


1C73 2F 


CMA 
SIGNXTNO: 




A f~t A A "T 

n, / 4 i / 


RAL 
CMPXT: 




1C75 9F 


SBB 


A 


1C76 CO 


RNZ 




1C77 3C 


INR 


A 


1C78 C9 


RET 
CMANSWR: 




1C79 Z10000 


LXI 


H, CMACCS ;F(X)»- F(0) 


1C7C E3 


XTHL 




1C7D E9 


PCHL 
SGNFCT: 




1C7E CD681C 


CALL 

FLOATBYT: 


SIGNACC 


1C81 0688 


MVI 


B.088H 


1C83 110000 


LXI 
FLOATINT: 


D,0 


1C86 219603 


LXI 


H.FLACCEXP ;CONVERT INTEG 


1C89 4F 


MOV 


C,A 


1C8A 70 


MOV 


M,B ; EXPONENT ASSUMED IN B 


1C8B 0600 


MVI 


B.000H 


1C8D 23 


INX 


H 


1C8E 3680 


MVI 


M.080H 


1C90 17 


RAL 




1C91 C3021A 


JMP 


NORMALZI 




; COMPUTE 


ABSOLUTE VALUE OF ACCUMULATOR 




ABSFCT: 




1C94 CD681C 


CALL 


SIGNACC ;ABS FUNCTION 


1C97 FO 


RP 

CMACCS: 




1C98 219503 


LXI 


H.FLACCMSB ;CHANGE SIGN 


1C9B 7E 


MOV 


A.M 


1C9C EE80 


XRI 


080H 


1C9E 77 


MOV 


M,A 


1C9F C9 


RET 
INTFCT: 




1CA0 219603 


LXI 


H.FLACCEXP ;INT FUNCTION 


1CA3 7E 


MOV 


A.M 


1CA4 FE98 


CPI 


098H 


1CA6 3A9303 


LDA 


ACCUMLTR 


1CA9 DO 


RNC 




1CAA 7E 


MOV 


A.M 


1CAB CD261C 


CALL 


FIXAC 


1CAE 3698 


MVI 


M.098H 


1CB0 7B 


MOV 


A,E 


1CB1 F5 


PUSH 


PSW 


1CB2 79 


MOV 


A,C 
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1CB3 17 RAL 

1CB4 CD021A CALL NORMALZI 

1CB7 Fl POP PSW 

1CB8 C9 RET 
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FLOATING POINT DECODE ROUTINE 





DECODE: 




1CB9 FE2D 


CPI 


;DECODE EXTERNAL FORM 


1CBB F5 


PUSH 


PSW 


1CBC CAOOOO 


JZ 


DECODEIN 


1CBF FE2B 


CPI 


Hj.ll 


1CC1 CAOOOO 


JZ 


DECODEIN 


1CC4 2B 


DCX 
DECODEIN: 


H 


1CC5 CD1A1A 


CALL 


ZEROAC 


1CC8 47 


MOV 


B,A 


1CC9 57 


MOV 


0,A 


1CCA 5F 


MOV 


E.A 


1CCB 2F 


CMA 




1CCC 4F 


MOV 
DECODELP: 


C,A 


1CCD CDAB03 


CALL 


SCANNXT ,'bscan , 


1CDO DAOOOO 


JC 


DECDIGIT 


1CD3 FE2E 


CPI 


ti rt 


1CD5 CAOOOO 


JZ 


DECODEPT 


1CD8 FE45 


CPI 


"E" ; UPPER CASE E 


1CDA CAOOOO 


JZ 


DECODEXP 


1CDD FE65 


CPI 


"e" ; LOWER CASE E 


1CDF C20000 


JNZ 
DECODEXP: 


DECODVAL 


1CE2 CDAB03 


CALL 


SCANNXT ;bscan , 


1CE5 E5 


PUSH 


H 


1CE6 210000 


LXI 


H, DECODEXL 


1CE9 E3 


XTHL 




1CEA 15 


DCR 


D 


1CEB FEAB 


CPI 


KEYSUB 


ICED C8 


RZ 




1CEE FE2D 


CPI 


" _ " 


1CF0 C8 


RZ 




1CF1 14 


INR 


D 


1CF2 FE2B 


CPI 


" + " 


1CF4 C8 


RZ 




1CF5 FEAA 


CPI 


KEYADD 


1CF7 C8 


RZ 




1CF8 Fl 


POP 


PSW 


1CF9 2B 


DCX 
DECODEXL: 


H 


1CFA CDAB03 


CALL 


SCANNXT ;bscan , ;SCAN 


1CFD D20000 


JNC 


DECODEXQ 


1D00 7B 


MOV 


A.E ;DECODE EXPONENT DIGIT 


1D01 07 


RLC 


;E=10*E+VAL(M) 


1D02 07 


RLC 




1D03 83 


ADD 


E 


1D04 07 


RLC 




1D05 86 


ADD 


M 


1D06 D630 


SUI 


"0" 


1D08 5F 


MOV 


E.A 
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5- 


1D09 C3FA1C 


JMP 
DECOOEXQ: 


DECODEXL 


1D0C 14 


INR 





1DOD C20000 


JNZ 


OECODVAL 


1D10 AF 


XRA 


A 


1D11 93 


SUB 


E 


1012 5F 


MOV 


E,A 


1D13 OC 


INR 
DECOOEPT: 


C 


1D14 OC 


INR 


C 


1D15 CACD1C 


JZ 
DECOOVAL: 


DECODELP 


1018 E5 


PUSH 


H 


1019 7B 


MOV 


A,E 


1D1A 90 


SUB 

DECDEXPA: 


B 


1D1B F40000 


CP 


DECMULUP 


1D1E F20000 


JP 


DECDEXAL 


1DZ1 F5 


PUSH 


PSW 


1D22 C01F1B 


CALL 


FLDIVB10 


1D25 Fl 


POP 


PSW 


1D26 3C 


INR 
DECDEXAL: 


A 


1D27 C21B1D 


JNZ 


DECDEXPA 


102A Dl 


POP 


D 


1D2B Fl 


POP 


PSW 


1D2C CC981C 


CZ 


CMACCS 


1D2F EB 


XCHG 




1D30 C9 


RET 
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DECODE DECIMAL POINT 



;COMBINE MANTISSA, EXPONENT 



basic. LST 



5-Sep-78 14:39:48 



Page 120 



1D31 C8 



DECMULUP: 

RZ 
FLMLB10C: 



1D32 


F5 


PUSH 


PSW 


1D33 


CD511C 


CALL 


FLMULB10 


1036 


Fl 


POP 


PSW 


1D37 


3D 


DCR 


A 


1D38 


C9 


RET 
DECDIGIT: 




1D39 


D5 


PUSH 


D 


1D3A 


57 


MOV 


D.A 


1D3B 


78 


MOV 


A.B 


1D3C 


89 


ADC 


C 


1D3D 


47 


MOV 


B,A 


1D3E 


C5 


PUSH 


B 


1D3F 


E5 


PUSH 


H 


1D40 


D5 


PUSH 


D 


1D41 


CD511C 


CALL 


FLMULB10 


1D44 


Fl 


POP 


PSW 


1D45 


D630 


SUI 


"0" 


1D47 


CDOOOO 


CALL 


DECDGADD 


1D4A 


El 


POP 


H 


1D4B 


CI 


POP 


B 


1D4C 


Dl 


POP 


D 


1D4D 


C3CD1C 


JMP 
DECDGADD: 


DECODELP 


1D50 


CDAD1B 


CALL 


PUSHAC 


1D53 


CD811C 


CALL 
ADDOPR: 


FLOATBYT 


1D56 


CI 


POP 


B 


1D57 


Dl 


POP 


D 


1D58 


C3B419 


JMP 


FLADD 



;DECODE DIGIT OF NUMBER 
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; FLOATING 


POINT ENCODE ROUTINE 






ERRMSGIN: 








105B 


E5 


PUSH 


H 


PRINT 


CUR LINE NUMBER IN ERROR 


1D5C 


21D505 


LXI 


H.MSGIN 






1D5F 


CDACOD 


CALL 


PRNTMSG 






1D62 


El 


POP 
PRINTINT: 


H 






1063 


E5 


PUSH 


H 


PRINT 


AN INTEGER 


1D64 


21AB0D 


LXI 


H.PRNTNUMS 




1D67 


E3 


XTHL 
ENCODEHL: 








1D68 


EB 


XCHG 




ENCODE 


AN INTEGER 


1D69 


AF 


XRA 


A 






1D6A 


0698 


MVI 


B.098H 






1D6C 


CD861C 


CALL 
ENCODE: 


FLOATINT 






1D6F 


11F3FF 


LXI 


D.-13 


ENCODE 


AC IN EXTERNAL FORM 


1D72 


2A8103 


LHLD 


PROGBASE 






1D75 


19 


DAD 


D 


CREATE 


POINTER TO ENCODE BUFFE 


1D76 


E5 


PUSH 


H 






1D77 


CD681C 


CALL 


SIGNACC 






1D7A 


3620 


MVI 


M," " 






1D7C 


F20000 


JP 


ENCODFRS 






1D7F 


362D 


MVI 
ENCODFRS: 


M,"-" 






1D81 


23 


INX 


H 






1D82 


3630 


MVI 


M,"0" 






1D84 


CAOOOO 


JZ 


ENCODZXT 






1D87 


E5 


PUSH 


H 






1D88 


FC981C 


CM 


CMACCS 






1D8B 


AF 


XRA 


A 






1D8C 


F5 


PUSH 


PSW 






1D8D 


CDOOOO 


CALL 
ENCODUPL: 


ENCODCMP 






1D90 


014391 


LXI 


B.09143H 




; FORCE NUMBER TO RANGE 


1D93 


11F84F 


LXI 


D.04FF8H 




;10**5 <= AC BY MULTIPL 


1D96 


CDF91B 


CALL 


FLCMP 






1D99 


30 


DCR 


A 






1D9A 


F20000 


JP 


ENCODRND 






1D9D 


Fl 


POP 


PSW 






1D9E 


CD321D 


CALL 


FLMLB10C 






1DA1 


F5 


PUSH 


PSW 






1DA2 


C3901D 


JMP 
ENCODDNL: 


ENCODUPL 






1DA5 


CD1F1B 


CALL 


FLDIVB10 




; FORCE NUMBER TO RANGE 


1DA8 


Fl 


POP 


PSW 


AC < 10* *B BY DIVISION 


1DA9 


3C 


INR 


A 






1DAA 


F5 


PUSH 


PSW 






1DAB 


CDOOOO 


CALL 
ENCODRND: 


ENCODCMP 






1DAE 


CDA019 


CALL 


FLADDHLF 




; ROUND UP RESULT 


1DB1 


3C 


INR 


A 
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1DB2 CD261C 


CALL 


FIXAC 


1DB5 CDBD1B 


CALL 


LDACRG 


1DB8 010602 


LXI 


B.00206H ;D.DDDDD 


1DBB Fl 


POP 


PSW 


1DBC 81 


ADD 


C 


1DBD FA0000 


JM 


ENCDEXPS 


1DC0 FE07 


CPI 


007H 


1DC2 D20000 


JNC 


ENCDEXPS 


1DC5 3C 


INR 


A 


1DC6 47 


MOV 


B,A 


1DC7 3E01 


MVI 
ENCDEXPS: 


A.001H 


1DC9 3D 


DCR 


A 


1DCA El 


POP 


H 


1DCB F5 


PUSH 


PSW 


1DCC 110000 


LXI 
ENCODDGL: 


D.ENCDCOEF 


1DCF 05 


DCR 


B 


1DD0 362E 


MVI 


M,"." 


1DD2 CCD21B 


CZ 


INCHLRET 


1D05 C5 


PUSH 


B 


1DD6 E5 


PUSH 


H 


1DD7 D5 


PUSH 


D 


1DD8 CDC81B 


CALL 


LDRGAC 


1DDB El 


POP 


H 


1DDC 062F 


MVI 
ENCODSBL: 


B.'0-l ;GENERATE NEXT DIGIT 


1DDE 04 


INR 


B 


1DDF 7B 


MOV 


A.E 


1DE0 96 


SUB 


M 


1DE1 5F 


MOV 


E.A 


1DE2 23 


INX 


H 


1DE3 7A 


MOV 


A.D 


1DE4 9E 


SBB 


M 


1DE5 57 


MOV 


D,A 


1DE6 23 


INX 


H 


10E7 79 


MOV 


A,C 


1DE8 9E 


SBB 


M 


1DE9 4F 


MOV 


C,A 


IDEA 2B 


DCX 


H 


1DEB 2B 


DCX 


H 


1DEC D2DE1D 


JNC 


ENCODSBL 


1DEF CD5B1A 


CALL 


ADDM2CDE 


1DF2 23 


INX 


H 


1DF3 CDBD1B 


CALL 


LDACRG 


1DF6 EB 


XCHG 




1DF7 El 


POP 


H 


1DF8 70 


MOV 


M,B 


1DF9 23 


INX 


H 


1DFA CI 


POP 


B 


1DFB OD 


DCR 


C 


1DFC C2CF1D 


JNZ 


ENCODDGL 


1DFF 05 


DCR 


B 


1E00 CAOOOO 


JZ 

ENCDRTZR: 


ENCODEXP 


1E03 2B 


DCX 


H ;REMOVE TRAILING ZERi 
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1E04 7E 


MOV 


A,M 






1E05 FE30 


CPI 


"0" 






1E07 CA031E 


JZ 


ENCDRTZR 






1E0A FE2E 


CPI 


; REMOVE TRAILING 


DECIM 


1EOC C4D21B 


CNZ 
ENCODEXP: 


INCHLRET 






1EOF Fl 


POP 


PSW ;ENCODE EXPONENT 




1E10 CAOOOO 


JZ 


ENCODEXT 






1E13 3645 


MVI 


M,"E" 






1E15 23 


INX 


H 






1E16 362B 


MVI 


M,"+" 






1E18 F20O00 


JP 


ENCDEXPP 






1E1B 3620 


MVI 


M,"-" 






1E1D 2F 


CMA 








1E1E 3C 


INR 
ENCDEXPP: 


A 






1E1F 062F 


MVI 
ENCDEXPL: 


B,'0-1 






1E21 04 


INR 


B 






1E22 060A 


SUI 


10 






1E24 D2211E 


JNC 


ENCDEXPL 






1E27 C63A 


ADI 


'9+1 






1E29 23 


INX 


H 






1E2A 70 


MOV 
ENCODZXT: 


M,B 






1E2B 23 


INX 


H 






1EZC 77 


MOV 


M.A 






1E2D 23 


INX 
ENCODEXT: 


H 






1E2E 71 


MOV 


M,C 






1E2F El 


POP 


H 






1E30 C9 


RET 
ENCODCMP: 








1E31 017494 


LXI 


B.09474H 


;10**6 




1E34 11F723 


LXI 


D.023F7H 






1E37 C0F91B 


CALL 


FLCMP 






1E3A El 


POP 


H 






1E3B 3D 


DCR 


A 






1E3C F2A51D 


JP 


ENCODDNL 






1E3F E9 


PCHL 
FLHALF: 








1E40 000000 


DB 


OOOh, OOOh, 


OOOh, 080h 


1/2 


1E43 80 


ENCDCOEF: 








1E44 A08601 


db 


OaOh, 086h, 


OOlh 


10**5 


1E47 102700 


db 


OlOh, 027h, 


OOOh 


10**4 


1E4A E80300 


db 


0e8h, 003h, 


OOOh 


10**3 


1E4D 640000 


db 


064h, OOOh, 


OOOh 


10**2 


1E50 OAOOOO 


db 


OOah, OOOh, 


OOOh 


10**1 


1E53 010000 


db 


OOlh, OOOh, 


OOOh 


10**0 
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FLOATING POINT LOGARITHM ROUTINE 



1E56 03 

1E57 AA5619 

1E5A 80 

1E5B F12276 

1E5E 80 

1E5F 45AA38 

1E62 82 



LOGCOEF: 
OB 

db 

db 
db 



FLONE: 
1E63 000000 db 
1E66 81 



1E67 
1E6A 
1E6B 
1E6E 
1E71 
1E72 
1E75 
1E78 
1E79 
1E7A 
1E7B 
1E7C 
1E7D 
1E80 
1E81 
1E82 
1E83 
1E86 
1E89 
1E8C 
1E8F 
1E92 
1E95 
1E98 
1E9B 
1E9C 

1E9F 
1EA2 
1EA5 



CD681C 

3D 

FA230C 

219603 

7E 

013580 

11F304 

90 

F5 

70 

05 

C5 

CDB419 

CI 

Dl 

04 

CD2D1B 

21631E 

CDA919 

21561E 

CD0000 

018080 

110000 

CDB419 

Fl 

CD501D 

013180 
111872 
C3A11A 



LOGFCT: 
CALL 
DCR 
JM 
LXI 
MOV 
LXI 
LXI 
SUB 
PUSH 
MOV 
PUSH 
PUSH 
CALL 
POP 
POP 
INR 
CALL 
LXI 
CALL 
LXI 
CALL 
LXI 
LXI 
CALL 
POP 
CALL 

FLMULLN2: 
LXI 
LXI 
JMP 



Oaah, 056h, 019h, 080h 

Oflh, 022h, 076h, 080h 

045h, Oaah, 038h, 082h 

OOOh, OOOh, OOOh, 081h ;1.0 



SIGNACC ;LOG FUNCTION 

A 

ERRAFC 

H.FLACCEXP 

A,M 

B.08035H 

D.004F3H 

B 

PSW 

M,B 

D 

B 

FLADD 

B 

D 

B 

FLDIV 

H, FLONE 

FLMMMAC 

H, LOGCOEF 

FCTPOLY2 

B.08080H 

D.00000H 

FLADD 

PSW 

DECDGADD 



B.08031H 
D.07218H 
FLMUL 



;LN(2)=0. 6931472 
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FLOATING POINT SQUARE ROOT/EXPONENTIATION ROUTINE 







SQRFCT: 






1EA8 


CDAD1B 


CALL 


PUSHAC 


SQR FUNCTION 


1EAB 


21401E 


LXI 


H.FLHALF 


;SQR(X)-X*» 


1EAE 


CDBA1B 


CALL 
EXPOPR: 


LDRGACMM 




1EB1 


CI 


POP 


B 


X»*Y-EXP(LOG(X)*Y) 


1EB2 


Dl 


POP 


D 




1EB3 


CD681C 


CALL 


SIGNACC 




1EB6 


CA0000 


JZ 


EXPFCT 




1EB9 


78 


MOV 


A,B 




1EBA 


B7 


ORA 


A 




1EBB 


CA1B1A 


JZ 


LDACCE 




1EBE 


D5 


PUSH 







1EBF 


C5 


PUSH 


B 




1EC0 


79 


MOV 


A.C 




1EC1 


F67F 


ORI 


07FH 




1EC3 


CDC81B 


CALL 


LDRGAC 




1EC6 


F20000 


JP 


EXPEXPOS 




1EC9 


D5 


PUSH 







1ECA 


C5 


PUSH 


B 




1ECB 


CDAOIC 


CALL 


INTFCT 




1ECE 


CI 


POP 


B 




1ECF 


Dl 


POP 


D 




1EDO 


F5 


PUSH 


PSW 




1ED1 


CDF91B 


CALL 


FLCMP 




1ED4 


El 


POP 


H 




1ED5 


7C 


MOV 


A,H 




1ED6 


IF 


RAR 
EXPEXPOS: 






1ED7 


El 


POP 


H 




1ED8 


229503 


SHLD 


FLACCMSB 




1EDB 


El 


POP 


H 




1EDC 


229303 


SHLD 


ACCUMLTR 




1EDF 


DC791C 


CC 


CMANSWR 




1EE2 


CC981C 


CZ 


CMACCS 




1EE5 


D5 


PUSH 


D 




1EE6 


C5 


PUSH 


B 




1EE7 


CD671E 


CALL 


LOGFCT 




1EEA 


CI 


POP 


B 




1EEB 


Dl 


POP 


D 




1EEC 


CDA11A 


CALL 


FLMUL 





1/2 
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EXPONENTIAL FUNCTION ROUTINE 



1EEF 
1EF2 
1EF5 
1EF8 
1EFB 
1EFE 
1FOO 
1F03 
1F06 
1F08 
1F0A 
1F0D 
1FOE 
1F11 
1F14 
1F17 
1F18 
1F19 
1F1A 
1F1B 
1F1E 
1F21 
1F24 
1F27 
1F2A 
1F2B 
1F2C 



CDAD1B 

013881 

113BAA 

CDA11A 

3A9603 

FE88 

D2121B 

CDA01C 

C680 

C602 

DA121B 

F5 

21631E 

CDA319 

CD9F1E 

Fl 

CI 

Dl 

F5 

CDB119 

CD981C 

210000 

CDOOOO 

110000 

CI 

4A 

C3A11A 



1F2F 08 

1F30 402E94 

1F33 74 

1F34 704F2E 

1F37 77 

1F38 6E0288 

1F3B 7A 

1F3C E6A02A 

1F3F 7C 

1F40 50AAAA 

1F43 7E 

1F44 FFFF7F 

1F47 7F 

1F48 000080 

1F4B 81 

1F4C 000000 

1F4F 81 



EXPFCT: 
CALL 
LXI 
LXI 
CALL 
LDA 
CPI 
JNC 
CALL 
ADI 
ADI 
JC 

PUSH 
LXI 
CALL 
CALL 
POP 
POP 
POP 
PUSH 
CALL 
CALL 
LXI 
CALL 
LXI 
POP 
MOV 
JMP 

EXPCOEF: 
DB 

db 

db 



db 



db 



db 



db 



db 



db 



PUSHAC ;EXP FUNCTION 

B.08138H ;L0G(2)E-1. 442695 

D.0AA3BH 

FLMUL 

FLACCEXP 

088H 

EXPRNEXC 

INTFCT 

080H 

002H 

EXPRNEXC 

PSW 

H.FLONE 

FLADDM 

FLMULLN2 

PSW 

B 

D 

PSW 

FLSUB 

CMACCS 

H, EXPCOEF 

FCTP0LY1 

D.O 

B 

C,D 

FLMUL 



8 

040h, 02eh, 094h, 074h 

070h, 04fh, 02eh, 077h 

06eh, 002h, 088h, 07ah 

Oe6h, OaOh, 02ah, 07ch 

050h, Oaah, Oaah, 07eh 

Offh, Offh, 07fh, 07fh 

OOOh, OOOh, 080h, 081h 

OOOh, OOOh, OOOh, 081h 



basic. LST 



5-Sep-78 14:39:48 



Page 127 



FLOATING POINT POLYNOMINAL EVALUATORS 







FCTPOLY2: 






1F50 


CDAD1B 


CALL 


PUSHAC 


POLYNOMIAL EVALUATOR 


1F53 


119F1A 


LXI 


D.MULOPR 


[EVALUATE P(X**2) 


1F56 


D5 


PUSH 


D 




1F57 


E5 


PUSH 


H 




1F58 


C0C81B 


CALL 


LDRGAC 




1F5B 


CDA11A 


CALL 


FLMUL 




1F5E 


El 


POP 
FCTPOLYl: 


H 




1F5F 


COAD1B 


CALL 


PUSHAC 


EVALUATE P(X) 


1F6Z 


7E 


MOV 


A,M 




1F63 


23 


INX 


H 




1F64 


CDBA1B 


CALL 
FCTPOLYL: 


LDRGACMM 




1F67 


CI 


POP 


B 




1F68 


Dl 


POP 


D 




1F69 


3D 


DCR 


A 




1F6A 


CB 


RZ 






1F6B 


D5 


PUSH 


D 




1F6C 


C5 


PUSH 


B 




1F6D 


F5 


PUSH 


PSW 




1F6E 


E5 


PUSH 


H 




1F6F 


CDA11A 


CALL 


FLMUL 




1F72 


El 


POP 


H 




1F73 


CDCB1B 


CALL 


LDRGMM 




1F76 


E5 


PUSH 


H 




1F77 


CDB419 


CALL 


FLADD 




1F7A 


El 


POP 


H 




1F7B 


Fl 


POP 


PSW 




1F7C 


C3671F 


JMP 


FCTPOLYL 
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RANDOM NUMBER GENERATOR 







RNDFCT: 




1F7F 


CD681C 


CALL 


SIGNACC ;RND FUNCTION 


1F8Z 


FAOOOO 


JM 


RNDFCTUS ;<0 - INITIALIZE SEED 


1F85 


219F03 


LXI 


H.RNDFCTSD 


1F88 


CDBA1B 


CALL 


LDRGACMM 


1F8B 


C8 


RZ 


;-0 - PREVIOUS VALUE 


1F8C 


013598 


LXI 


B.09835H 


1F8F 


117A44 


LXI 


D.0447AH 


1F9Z 


CDA11A 


CALL 


FLMUL ;>0 - NEXT VALUE 


1F95 


012868 


LXI 


B.06828H 


1F98 


1146B1 


LXI 


D.0B146H 


1F9B 


COB419 


CALL 
RNDFCTUS: 


FLAOD 


1F9E 


CDC81B 


CALL 


LDRGAC ;CHANGE SEED 


1FA1 


7B 


MOV 


A,E 


1FA2 


59 


MOV 


E,C 


1FA3 


4F 


MOV 


C,A 


1FA4 


3680 


MVI 


M.080H 


1FA6 


2B 


OCX 


H 


1FA7 


46 


MOV 


B,M 


1FA8 


3680 


MVI 


M.080H 


1FAA 


CD051A 


CALL 


NORMALIZ 


1FAD 


219F03 


LXI 


H.RNDFCTSD 


1FBO 


C3D41B 


JMP 


LDMMAC 
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FLOATING POINT SINE/COSINE ROUTINES 



1FB3 


210000 


COSFCT: 
LXI 


H.PI0VER2 




;COS FUNCTION 


1FB6 


CDA319 


CALL 
SINFCT: 


FLADDM 






1FB9 


CDAD1B 


CALL 


PUSHAC ;SIN FUNCTION 


1FBC 


014983 


LXI 


B.08349H 




;Y«X*2*PI 


1FBF 


11DB0F 


LXI 


D.OOFDBH 






1FC2 


CDBD1B 


CALL 


LDACRG 






1FC5 


CI 


POP 


B 






1FC6 


Dl 


POP 


D 






1FC7 


C02D1B 


CALL 


FLDIV 






1FCA 


CDAD1B 


CALL 


PUSHAC ;Y° 


'Y MOD 


1 


1FCD 


CDA01C 


CALL 


INTFCT 






1FD0 


CI 


POP 


B 






1FD1 


Dl 


POP 


D 






1FD2 


CDB119 


CALL 


FLSUB 






1FD5 


210000 


LXI 


H, FLQUART 






1FD8 


CDA919 


CALL 


FLMMMAC 






1FDB 


CD681C 


CALL 


SIGNACC 






1FDE 


37 


STC 








1FDF 


F20000 


JP 


SINFCTC 






1FE2 


CDA019 


CALL 


FLADDHLF 






1FE5 


CD681C 


CALL 


SIGNACC 






1FE8 


B7 


ORA 
SINFCTC: 


A 






1FE9 


F5 


PUSH 


PSW 






1FEA 


F4981C 


CP 


CMACCS 






1FED 


210000 


LXI 


H, FLQUART 






1FF0 


CDA319 


CALL 


FLADDM 






1FF3 


Fl 


POP 


PSW 






1FF4 


D4981C 


CNC 


CMACCS 






1FF7 


210000 


LXI 


H, COSCOEF 






1FFA 


C3501F 


JMP 
PIOVER2: 


FCTPOLY2 






1FFO 


DB0F49 


db 


Odbh, OOfh, 


049h, 


081h ;PI/2 


2000 


81 


FLQUART: 








2001 


000000 


db 


OOOh, OOOh, 


OOOh, 


07fh ;l/4 


2004 


7F 


COSCOEF: 








2005 


05 


DB 


5 






2006 


BAD71E 


db 


Obah, 0d7h, 


Oleh, 


086h 


2009 


86 










200A 


642699 


db 


064h, 026h, 


099h, 


087h 


200D 


87 










200E 


583423 


db 


058h, 034h, 


023h, 


087h 


2011 


87 










2012 


E05DA5 


db 


OeOh, 05dh, 


0a5h, 


086h 


2015 


86 
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2016 DA0F49 
2019 83 



db Odah, OOfh, 049h, 083h 



basic. LST 



5-Sep-78 14:39:48 



Page 131 



FLOATING POINT TANGENT/ARCTANGENT ROUTINES 





TANFCT: 








201A CDAD1B 


CALL 


PUSHAC ;TAN FUNCTION 


Z01D CDB91F 


CALL 


SINFCT 






2020 CI 


POP 


B ;TAN(X) = 


SIN(X)/COS(X) 


2021 El 


POP 


H 






2022 CDAD1B 


CALL 


PUSHAC 






2025 EB 


XCHG 








2026 CDBD1B 


CALL 


LDACRG 






2029 CDB31F 


CALL 


COSFCT 






202C C32B1B 


JMP 
ATNFCT: 


DIVOPR 






202F CD681C 


CALL 


SIGNACC 






2032 FC791C 


CM 


CMANSWR 






2035 FC981C 


CM 


CMACCS 






2038 3A9603 


LDA 


FLACCEXP 






203B FE81 


CPI 


081H 






203D DA0O00 


JC 


ATNFCTC 






2040 010081 


LXI 


B.08100H 






2043 51 


MOV 


D,C 






2044 59 


MOV 


E.C 






2045 CD2D1B 


CALL 


FLDIV 






2048 21A919 


LXI 


H.FLMMMAC 






204B E5 


PUSH 
ATNFCTC: 


H 






204C 210000 


LXI 


H, ATNCOEF 






204F CD501F 


CALL 


FCTPOLY2 






2052 21FD1F 


LXI 


H.PIOVER2 






2055 C9 


RET 
ATNCOEF: 








2056 09 


DB 


9 






2057 4AD73B 


db 


04ah, 0d7h, 


03bh, 


078h 


205A 78 










205B 026E84 


db 


002h, 06eh, 


084h, 


07bh 


205E 7B 










205F FEC12F 


db 


Ofeh, Oclh, 


02fh, 


07ch 


2062 7C 










2063 74319A 


db 


074h, 031h, 


09ah, 


07dh 


2066 7D 










2067 843D5A 


db 


084h, 03dh, 


05ah, 


07dh 


206A 7D 










206B C87F91 


db 


0c8h, 07fh, 


091h, 


07eh 


206E 7E 










206F E4BB4C 


db 


0e4h, Obbh, 


04ch, 


07eh 


2072 7E 










2073 6CAAAA 


db 


06ch, Oaah, 


Oaah, 


07fh 


2076 7F 










2077 000000 


db 


OOOh, OOOh, 


OOOh, 


081h 


207A 81 
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VERSNDAT: 
207B 30322F DB "02/03/78" , 
207E 30332F 
2081 373800 

ENDINTRP: 
2084 00 DB ;END OF INTERPRETER 
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INITIALIZATION 





INITIALZ: 




2085 21FFFF 


LXI 


H.OFFFFH 


2088 227303 


SHLD 


CURLINE 


208B 210000 


LXI 


H.INITSTCK 


208E F9 


SPHL 




208F 228903 


SHLD 


STCKBASE 


2092 AF 


XRA 


A 


2093 326503 


STA 


PRINTFLG 


2096 CD3805 


call 


dclr 


2099 CD490D 


CALL 


PRNTCRLF 


209C 2100AF 


LXI 


H.LIMUPPER 


209F 229103 


SHLD 


STRGTLIM 


20A2 11E2FF 


LXI 


D.-10*3 


20A5 19 


DAD 


D 


20A6 228D03 


SHLD 


STRGBASE 


20A9 228B03 


SHLD 


STRGFREE 


20AC 11O0FF 


LXI 


D.-256 


20AF 19 


DAD 


D 


20B0 D2F104 


JNC 


ERRAOM 


20B3 E5 


PUSH 


H 


20B4 210080 


LXI 


H.LIMLOWER 


20B7 110COO 


LXI 


D.12 


20BA 19 


DAD 


D 


20BB 3600 


MVI 


M.OOOH 


20BD 23 


INX 


H 


20BE 228103 


SHLD 


PROGBASE 


20C1 E3 


XTHL 




20C2 Dl 


POP 


D 


20C3 F9 


SPHL 




20C4 228903 


SHLD 


STCKBASE 


20C7 21F3FF 


LXI 


H,-13 


20CA 39 


DAD 


SP 


20CB F9 


SPHL 




20CC EB 


XCHG 




20CD CDE504 


CALL 


SPACECHK 


20D0 7B 


MOV 


A.E 


20D1 95 


SUB 


L 


20D2 6F 


MOV 


L.A 


20D3 7A 


MOV 


A.D 


20D4 9C 


SBB 


H 


20D5 67 


MOV 


H,A 


20D6 01F0FF 


LXI 


B.-16 


20D9 09 


DAD 


B 


20DA CD490D 


CALL 


PRNTCRLF 


20DD CD631D 


CALL 


PRINTINT 


20E0 210000 


LXI 


H.INITMFRE 


20E3 CDACOD 


CALL 


PRNTMSG 


20E6 217B20 


LXI 


H.VERSNDAT 


20E9 CDACOD 


CALL 


PRNTMSG 


20EC CDF704 


CALL 


CLEARPGM 


20EF 214B06 


LXI 


H.CMNDRSTR 



; ADDRESS LAST BYTE 



;ADDRESS FIRST BYTE 
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ZOFZ 220100 


SHLD 


SYSINITJ+1 


20F5 E9 


PCHL 
INITMFRE: 




20F6 204259 


DB 


" BYTES FREE" 


20F9 544553 






20FC 204652 






20FF 4545 






2101 0DOA0A 


DB 


CR.LF.LF 


2104 424153 


db 


"BASIC, Version of ", 


2107 49432C 






210A 205665 






210D 727369 






2110 6F6E20 






2113 6F6620 






2116 00 


INITSTSP: 




21EF 00 


DS 
INITSTCK: 


30*2+LINESYZE ;INITIA 


2203 00 


DS 


20 


2204 2204 


END 
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